ввести 10 чисел проверить делится ли каждое число на 3 если делится то вывести число без изменения в противном случае вывести число умножив его на 2
Какой язык программирования?
Ответ:
Объяснение:
var
i, k, n, sum: Integer;
begin
for i := 1 to 10 do
readln(k);
if (k mod 3 = 0) then
writeln(k)
else
writeln(k*2)
end;
end.