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

Ответы 1

  • 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.
    • Автор:

      crumbles
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years