1. Информатика
  2. Ввести 10 чисел проверить

Ввести 10 чисел проверить делится ли каждое число на 3 если делится то вывести число без изменения в противном случае вывести число умножив его на 2

Viktoria1289 Viktoria1289    3   05.05.2020 17:32    6

Ответы
Сағат Сағат  14.10.2020 07:42

Объяснение:

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
АртемкаЧеловечек АртемкаЧеловечек  18.04.2021 15:27
Дано список фрагмент коду.s= 25 56 3 as= s.split( ) Якими буде результат?​...
bemasmile2004 bemasmile2004  18.04.2021 15:43
Ребята умоляю мне это язык программирования Phython Basic!Что нужно сделатьРеализуйте программу, которая получает на вход четырёхзначное число и выводит его на экран в обратном порядке....
dina0585 dina0585  18.04.2021 15:44
1. 2.Зачем пользователям нужен браузер?Почему нужно быть осторожным и внимательнымпри выборе пароля?​...
PisarenkoEV1 PisarenkoEV1  18.04.2021 15:47
Что делать если у меня язва во рту?Они у меня болит( дам)​...
katysca katysca  18.04.2021 15:49
сделать форму с HTML. Пример формы прикреплён....
MisterStickman1 MisterStickman1  18.04.2021 15:52
Решите 2 задачи по информатике...
1Yuki2 1Yuki2  18.04.2021 15:56
знайти суму 10 елементів послідовності чисел: 1,2,3,4,5... використовуючи цикл із параметром. Зробити в лазарусі​...
katyymii katyymii  18.04.2021 15:56
1.Як у Python створити графічні примітиви? Це неможливо у Python Потрібно підключити модуль turtle Потрібно підключити модуль randint Потрібно підключити choice 2.Як виглядає цикл...
Дага72 Дага72  18.04.2021 16:07
Составить алгоритм проверки «Является ли слово палиндромом»...
Екатерина3817 Екатерина3817  18.04.2021 16:10
Даны три числа. Если все числа меньше 100, то посчитать их произведение и вывести результат, иначе вывести сообщение нет .​...

Популярные вопросы