ДАЮ 34 БАЛЛА!!!!
Помогите решить задания по информатике (задание нужно решать через паскаль+ блок схема)
Составить в тетради блок-схемы и программы для следующих алгоритмов:
А) определения делимости числа на 7;
Б) определения делимости числа на 3 и 6;
В) определения делимости числа на 3 и 5;
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад