Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Дано ціле число. Визначте, чи воно кратне 7. Написати на Pascal

Ответ оставил Гость

Var x:integer; 
begin 
writeln(Введіть число x); 
read(x); 
if x mod 7=0 then writeln(Число ,x, кратне 7) 
else writeln(Число ,x, не кратне 7) 
end.