Задача: подсчитать сумму цифр от 1 до 10
program Summa_1;
var i,s: integer; {объявляем переменные}
begin
i:=0;
s:=0;
while i<=10 do {пока i<=10}
begin
s:=s+i; {прибавляем к переменной s значение i}
i:=i+1; {увеличиваем i на 1}
end;
writeln(s); {выводит значение i на экран}
end.
Проверьте программу (program Summa_1) на своих компьютерах, какое значение вы получили?

DAmigoX    3   13.04.2020 15:58    2