Question

Паскаль. 8 класс. Даны 4 числа. Узнать, есть ли среди них числа, кратные трём. Пожалуйста!

Answer 1

Ответ:

program zadaca;

var

i:integer;

a:real;

begin

for i:=1 to 4 do

begin

Writeln('Введите число √',i);

Readln(a);

if a/3=trunc(a/3) then

Writeln('Число номер ',i,' со значением ',a:5:1,' кратно е трьом');

end;

readln;

end.

На фото результат программы (консоль) с любыми подобранными значениями.