Сабақтың тақырыбы: Циклдің алғы шарты. Сабақтың мақсаты

жүктеу/скачать 1,11 Mb.

бет	2/3
Дата	31.01.2018
өлшемі	1,11 Mb.
	#36520
түрі	Сабақ

1 2 3

Циклдің денесі
Рrogram KVADRAT;
var s, i, n, Y: integer;
begin
s:=0; i:=1;
write ('Вutin san engiz ');
readln (n);
while i<=n do
begin
s:=s+i;

i:=i+1;

Y:=s+i;
end;
writeln ('s= ', s);

жүктеу/скачать 1,11 Mb.

Достарыңызбен бөлісу:

1 2 3