Предмет:
ИнформатикаАвтор:
leylaviseprogram raf105;
var
a,b,sum,i: integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
for i:=a to b do
if i > 0 then
sum:= sum+i;
writeln('Сумма всех Натуральных чисел от ',a,' до ',b,' = ',sum);
end.
PascalABC 3.4.2Автор:
chaunceycjydДобавить свой ответ
Предмет:
ИнформатикаАвтор:
abdielОтветов:
Смотреть
Предмет:
ХимияАвтор:
kristenrujiОтветов:
Смотреть
Предмет:
Русский языкАвтор:
johnathonОтветов:
Смотреть
Предмет:
БиологияАвтор:
apple jackc6raОтветов:
Смотреть