Question

Напишите программу на языке паскаль вывода всех чётных чисел не кратных 4 в диапазоне от 50-70 и найдите их количество. Пожалуйста!!

Answer 1

program raf105;

var a,i:integer;

begin

for i:=50 to 70 do

begin

 if ((i mod 2)=0) and ((i mod 4)<>0)

   then a:= a+1;

end;

writeln('Вывод: ',a);

end.

Язык программирования PascalABC

Answer 2

Конечно, вот программа на языке Pascal:

vbnetCopy code
program even_numbers;

var
  i, count: integer;

begin
  count := 0;
  for i := 50 to 70 do
  begin
    if (i mod 2 = 0) and (i mod 4 <> 0) then
    begin
      writeln(i);
      count := count + 1;
    end;
  end;
  writeln('Количество: ', count);
end.

Эта программа использует цикл for, чтобы перебрать все числа в диапазоне от 50 до 70. Затем она проверяет, является ли текущее число четным и не кратным 4 с помощью операторов mod. Если это так, она выводит число на экран и увеличивает счетчик count на 1. По завершении цикла она выводит количество найденных чисел.