|
|
бет | 2/3 | Дата | 31.01.2018 | өлшемі | 1,11 Mb. | | #36520 | түрі | Сабақ |
|
Циклдің денесі
Р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);
Достарыңызбен бөлісу: |
|
|