от a до 500 (значение a вводится с клавиатуры; a 500) ; в) сумму всех целых чисел от — 10 до b (значение b вводится с клавиатуры; b — 10) ; г) сумму всех целых чисел от a до b (значения a и b вводятся с клавиатуры; b a).
Ответ или решение
А) var a, sum, i:integer;
begin
sum:=0;
for i:=100 to 500 do
begin
sum:=sum+i;
end;
writeln (sum) ;
end.
б) var a, sum, i:integer;
begin
sum:=0;
writeln (‘Введите число a’) ;
readln (a) ;
for i:=a to 500 do
begin
sum:=sum+i;
end;
writeln (sum) ;
end.
в) var b, sum, i:integer;
begin
sum:=0;
writeln (‘Введите число b’) ;
readln (b) ;
for i:=-10 to b do
begin
sum:=sum+i;
end;
writeln (sum) ;
end.
г) var a, b, sum, i:integer;
begin
sum:=0;
writeln (‘Введите число a’) ;
readln (a) ;
writeln (‘Введите число b’) ;
readln (b) ;
for i:=a to b do
begin
sum:=sum+i;
end;
writeln (sum) ;
end.
На нашем сайте представлено множество школьных и студенческих вопросов и ответов на них. Также, вы можете задать свой вопрос или помочь другим учащимся, ответив на существующие вопросы. Для этого пишите ответы в комментариях.
Для того, чтобы найти ответ на ваш вопрос, а он наверняка есть в нашей базе, пользуйтесь формой поиска по сайту!