Ответ учителя по предмету Информатика
var x:integer;
begin
read(x);
if(x<=0)then write(‘Не положительное’)
else if(x mod 7 <>0)then write(‘Не кратно 7’)
else write(‘Положительное и кратно 7’);
end.
var x:integer;
begin
read(x);
if(x<=0)then write(‘Не положительное’)
else if(x mod 7 <>0)then write(‘Не кратно 7’)
else write(‘Положительное и кратно 7’);
end.
Похожие вопросы от пользователей
636. Как изменится объем прямоугольного параллелепипеда, если:
1) длину увеличить в 4 раза, ширину — в 2 раза, высоту — в 5 раз;
2) ширину уменьшить в 4 раза, высоту — в 2 раза, а длину увеличить в 16 раз?