ДАЮ 34 БАЛЛА!!!! Помогите решить задания по информатике (задание нужно решать через...

Question

ДАЮ 34 БАЛЛА!!!!

Помогите решить задания по информатике (задание нужно решать через паскаль+ блок схема)

Составить в тетради блок-схемы и программы для следующих алгоритмов:
А) определения делимости числа на 7;
Б) определения делимости числа на 3 и 6;
В) определения делимости числа на 3 и 5;

Answer 1

A )
var n : integer;
begin
readln (n);
if n mod 7 = 0 then write ('Кратно семи')
else write ('Не кратно семи');
end.

Б)
var n : integer;
begin
readln (n);
if (n mod 6 = 0) and (n mod 3 = 0) then write ('Кратно шести и трём')
else write ('Не кратно шести и трём');
end.

В)
var n : integer;
begin
readln (n);
if (n mod 5 = 0) and (n mod 3 = 0) then write ('Кратно пяти и трём')
else write ('Не кратно пяти и трём');
end.