Вводить числа в переменную х. Пока не будет введен 0. На печать ввыдать сумму…

Question

51

Вводить числа в переменную х. Пока не будет введен 0. На печать ввыдать сумму введенных чисел и сами числа

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

alex99sd · Accepted Answer

69

alex99sd

22 февраля 2024

label nach; uses crt; var x,s: integer; begins: =0; repeatnach: write ('vvedite x='); read (x); if (x! =0) then begin writeln (x); s: =s+x; goto nach; end else s: =s+x; until (x=0); writeln ('summa ravna=',s); end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: