Найти сумму трёх целых чисел.
использовать цикл с предусловием
Срочноооооо!!!
Ответы на вопрос
Ответил artifex
0
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.
a,i,r:byte;
begin
i:=1;
while i <= 3 do begin
readln(a);
r:=r+a;
i:=i+1;
end;
writeln(r);
end.
Приложения:
Ответил zhorov92
0
rfr
Ответил zhorov92
0
как
Ответил artifex
0
рядом файлик появился doc
Ответил artifex
0
открывай его
Ответил zhorov92
0
спасибки
Новые вопросы