Вот условие:
--------------------------------------------------------------------------------------------
1.Составить программу нахождения суммы чисел от 1 до 100, используя три типа цикла:
·цикл с предусловием WHILE
·цикл с постусловием REPEAT . . . UNTIL
·цикл с параметром FOR . . . TO . . . DO
--------------------------------------------------------------------------------------------
Я сделал с параметром FOR.....вроде всё работает (но всё равно проверьте на всякий случай)
writeln((1 + 100) * 100 div 2)
SlimShady
Ты по условию должен найти сумму чисел 1 .. 100
Вот и находи ее, и никаких дополнительных вводов числа тебе не нужно. Учись правильно читать условие...
С циклом For:
for i := 1 to 100 do s := s + i;
i := 1;
while i <= 100 do begin
s := s + i;
i := i + 1;
end;
i := 1;
repeat
s := s + i;
i := i + 1;
until i > 100;
То есть всё что от меня требуется....это???
WHILE...
Uses Crt;
var i,s: integer;
begin
ClrScr;
i:=1;
while i<= 100 do begin
s:=s+i;
i:=i+1;
end;
writeln('Сумма чисел от 1 до 100 равна ---> ',s,'');
read;
repeat intil keypressed;
end.
Uses Crt;
var i,s: integer;
begin
ClrScr;
i := 1;
repeat
s:=s+i;
i:=i+1;
until i>100;
writeln('Сумма чисел от 1 до 100 равна ---> ',s,'');
read;
repeat intil keypressed;
end.
Uses Crt;
var i,s: integer;
begin
ClrScr;
for i:=1 to 100 do s:=s+i;
writeln('Сумма чисел от 1 до 100 равна ---> ',s,'');
read;
repeat intil keypressed;
end.