Gavinrardin
5 год назад
Пж Пожалуйста посчитайте срочно !!!Напишите программу которая проверяет является ли введенное натуральное число положительным кратным 7 ( на языке Паскаль ) даю 40 поинтов
ОТВЕТЫ
Зиновий
Oct 24, 2020
var x:integer;
begin
read(x);
if(x<=0)then write('Не положительное')
else if(x mod 7 <>0)then write('Не кратно 7')
else write('Положительное и кратно 7');
end.
begin
read(x);
if(x<=0)then write('Не положительное')
else if(x mod 7 <>0)then write('Не кратно 7')
else write('Положительное и кратно 7');
end.
177
Смежные вопросы:
