Запишите на алгоритмическом языке сумму чисел от 1 до 5
Запишите на алгоритмическом языке сумму чисел от 1 до 5
Гость
Ответ(ы) на вопрос:
ГостьVar i,summ:integer;Begin
for i:=1 to 5 dowrite (' ',i,' ');summ:=summ+i;writeln('сумма чисел от 1 до 5 равна: ',summ);end.
Не нашли ответ?
Похожие вопросы