введите с клавиатуры четыре числа. найдите и выведите на экран сумму тех чисел значения которых положительны
Ответы
Ответ дал:
0
program tak;
var a,b,c:integer;
begin
writeln('введите 4 числа ');
readln(a);
c:=1;
b:=0;
while (c<>4) do
begin
if (a>0) then
begin b:=b+a;
end;
c:=c+1;
readln(a);
end;
writeln(b);
end.
var a,b,c:integer;
begin
writeln('введите 4 числа ');
readln(a);
c:=1;
b:=0;
while (c<>4) do
begin
if (a>0) then
begin b:=b+a;
end;
c:=c+1;
readln(a);
end;
writeln(b);
end.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад