Найти сумму цифр от 300 до 500. Это надо сделать в программе ПАСКАЛЬ. Напишите пжл.
Найти сумму цифр от 300 до 500. Это надо сделать в программе ПАСКАЛЬ. Напишите пжл.
Гость
Ответ(ы) на вопрос:
ГостьОтвет выкладываю файлом
Гостьvar sot,des,ed,k,summa :integer;
begin
for k:=300 to 500 do
begin
sot:=k div 100;
des:=k mod 100;
des:=des div 10;
ed:=k mod 10;
summa:=summa+(sot+des+ed);
end;
writeln(summa);
end.
Не нашли ответ?
Похожие вопросы