В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История

Склавиатуры вводятся 2 числа. составить алгоритм и программу сравнения этих чисел.

Показать ответ
Ответ:
timca2014
timca2014
19.07.2020 13:16
var i, p: integer;
M: array [1..4] of integer;
begin
  writeln('Введите 4 числа: ');
  for i := 1 to 4 do
  readln (M[i]);
  p := 0;
  writeln('Четные числа кратные 3:');
  for i := 1 to 4  do
  if (M[i] mod 2 = 0) and (M[i] mod 3  = 0) then
  begin
    write (M[i], ' ');
    inc(p);
  end;
  if p = 0 then write('Таковых нет');
 end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота