Вопрос школьника по предмету Информатика
ввести 10 чисел проверить делится ли каждое число на 3 если делится то вывести число без изменения в противном случае вывести число умножив его на 2
Ответ учителя по предмету Информатика
Ответ:
Объяснение:
var
i, k, n, sum: Integer;
begin
for i := 1 to 10 do
begin
readln(k);
if (k mod 3 = 0) then
writeln(k)
else
writeln(k*2)
end;
end.
Похожие вопросы от пользователей
По ОБЖ, плиз
а) надра,терези,пригоди,молодь
б) учнi,примхи,заздрощi,промiння
в) Черкаси,посиденьки,прозаiки,дрiжжi
г) ревнощi,ресурси,грощi,заручини.
ПОМОГИТЕ ПЛИЗ !
(4 — 2 √5) + (8 — √5) × 2