--------------------------------------------------------------------------------------------
1.Составить программу нахождения суммы чисел от 1 до 100, используя три типа цикла:
·цикл с предусловием WHILE
·цикл с постусловием REPEAT . . . UNTIL
·цикл с параметром FOR . . . TO . . . DO
--------------------------------------------------------------------------------------------
Я сделал с параметром FOR.....вроде всё работает (но всё равно проверьте на всякий случай)
uses Crt;
var i,n,s: integer;
begin
ClrScr;
textcolor(yellow);
write('Введите любое число меньше ста');
read(n);
s:=0;
for i:=1 to n do
s:=s+i;
if n<=100 then writeln('Сумма чисел от 1 до ',n:3,' равна ',s:6,'');
if n>100 then writeln('Это число больше ста!');
read;
repeat until keypressed;
end.
А вот с While у меня чё-то не получается сделать......вот что я сделал....
uses Crt;
var i,s,n: integer;
begin
ClrScr;
write('Введите первое число');
read(n);
s:=0;
i:=1;
repeat
s:=s+i;
i:=i+1;
until i>100;
s:=0;
if n>100 then writeln('Это число больше ста');
if n<100 then writeln('Сумма чисел от 1 до ',n:3,' равна ',s:6,'');
read;
repeat until keypressed;
end.
И в этот момент начинается игра: Найди десять ошибок.....=)))
Она запускается но не считает......