Question

ПАСКАЛЬ !!!
Ввести с клавиатуры 8 чисел. Если число кратно 4, тогда заменить его на 1000, иначе разделить на 3. Результаты выдать на экран.
ПАСКАЛЬ!!!

Answer 1

var a, i: integer;

begin

for i:= 1 to 8 do

begin

 readln(a);

 if a mod 4 = 0 then

 begin

   writeln(1000);

 end

 else writeln(a/3);

end;

end.