Пж помогите срочно !!!Напишите программу которая проверяет является ли введенное натуральное число положительным кратным 7 ( на языке Паскаль ) даю 40 баллов

Ответ учителя по предмету Информатика

var x:integer;

begin

read(x);

if(x<=0)then write(‘Не положительное’) 

   else  if(x mod 7 <>0)then write(‘Не кратно 7’)  

      else write(‘Положительное и кратно 7’);

end.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *

Похожие вопросы от пользователей