Предмет: Информатика,
автор: sashaguzenko
Дано ціле число. Визначте, чи воно кратне 7. Написати на Pascal
Ответы
Автор ответа:
0
var x:integer;
begin
writeln('Введіть число x');
read(x);
if x mod 7=0 then writeln('Число ',x,' кратне 7')
else writeln('Число ',x,' не кратне 7')
end.
begin
writeln('Введіть число x');
read(x);
if x mod 7=0 then writeln('Число ',x,' кратне 7')
else writeln('Число ',x,' не кратне 7')
end.
Интересные вопросы
Предмет: Информатика,
автор: burenbaatar2006a
Предмет: Английский язык,
автор: Аноним
Предмет: Другие предметы,
автор: sabinasatybaldy80
Предмет: Математика,
автор: simsim396