Ответы
Ответ дал:
0
Program Chisla;
Var A,B:integer;
Begin
i:=1
From i 1 to 10 do
Writeln ("Введите число");
Readln (A);
If (A mod 3) - 0 then B:=A+b;
Writeln ("Сумма -" ), B;
end
Var A,B:integer;
Begin
i:=1
From i 1 to 10 do
Writeln ("Введите число");
Readln (A);
If (A mod 3) - 0 then B:=A+b;
Writeln ("Сумма -" ), B;
end
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад