1. Информатика
  2. Программу которая в последовательности

Программу которая в последовательности целых чисел определяет количество чисел определяет наименьшее число кратное 3 и оканчивающейся на 6

titina82003 titina82003    2   11.09.2019 21:00    0

Ответы
BASS1111 BASS1111  07.10.2020 08:25


var a, k: integer;
begin
 t:=0;
 readln(a);
 while a<>0 do begin
     if (a mod 2 = 0) and (a mod 6 = 0) then
        k := k + 1;
     readln(a);

     end;
 writeln(k)
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
alinachaiun alinachaiun  07.10.2019 13:42
Решите с объяснением. 8 класс. номер 15...
fara30 fara30  07.10.2019 13:42
постройте таблицу истинности для заданного логического выражения:...
tyutyunnik2002 tyutyunnik2002  29.04.2019 16:16
Впервый день пловец проплыл 3 км. в каждый последующий день он проплывал 10% больше,чем в предыдущий. к какому дню он проплывет более 30 км? программа паскаль через оператор ревит....
silwana2002 silwana2002  29.04.2019 14:18
Написать программу ввода неопределенного ряда целых чисел до тех пор,пока не будет введена 1. после ввода 1,программа должна вывести сообщение «программа закончена»...
maruha3008 maruha3008  18.05.2020 18:54
Какое число будет выведенно на экран монитора после выполнения данной программы...
Amerilove57 Amerilove57  18.05.2020 18:56
Установите соответствие между характеристиками объектов и органов чувств, при которых они воспринимаются человеком, — для каждой характеристики из левого столбца подберите соответствующий...
ослвлвллыб ослвлвллыб  18.05.2020 18:56
В) var n, s: integer; begin n : = 30; s : = 25; while s 425 do begin s : = s + 40; n : = n + 10 end; write(n);end....
edkoll79p04ynu edkoll79p04ynu  18.05.2020 19:05
В каждом варианте нужно создать БД в программе Access, состоящую из 3-х таблиц. Типы данных полей таблицы и поля для связи таблиц определяйте самостоятельно. Установите ключи и...
Лубенцовасоня Лубенцовасоня  18.05.2020 19:06
очень информатика 7 класс​...
Тер32 Тер32  18.05.2020 19:06
Информатика, 8 класс Дано: for i := 1 to 18 do При первом выполнении тела цикла i= (ответ). 2. Сколько раз будет выполнен цикл for n := 1 to 64 do? ответ: 3. нет Параметр цикла...

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