Автор - rin7rghc 6 лет назад

Паскаль, цикл while, срочно, пожалуйста!

Запросить 6 чисел и вывести их сумму

Ответ

Автор - defendercryak

Ответ:

var a,s,k:integer;

begin

k:=0;

s:=0;

while k<6 do begin

k:=k+1;

read(a);

s:=s+a;

end;

writeln;

write(s);

end.

Предыдущий вопрос Следующий вопрос

Ответы и объяснения

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.

© 2026 Все права защищены Политика конфиденциальности Контакты