Найти сумму трёх целых чисел. использовать цикл с предусловием Срочноооооо!!!

Найти сумму трёх целых чисел. использовать цикл с предусловием Срочноооооо!!!
Гость
Ответ(ы) на вопрос:
Гость
var a,i,r:byte; begin i:=1; while i <= 3 do begin readln(a); r:=r+a; i:=i+1; end; writeln(r); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы