Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.