< >

Помогите пожалуйста с информатикой

Приложения:

Ответы

Ответ дал: Аноним
1

Ответ:

var a,b: integer;

begin

readln(a);

readln(b);

if (a mod b)=0 then

writeln('Число кратно')

else writeln('Число не кратно');

end.

Объяснение:

Похожие вопросы
История
1 год назад
Задание 4 Какую историческую информацию мы можем извлечь из данных произведений (4 б) «Кодекс куманикус» Кюй > Эпос «Ер-Саин» Сделай вывод: Могут ли кюи, легенды, шежире и эпосы служить
Английский язык
1 год назад
допоможіть будь ласка фотографія нище
Українська мова
1 год назад
7 класс укр мова кр плиз срчоно Укажіть рядок, у якому всі слова- -дієслова 2 дієвідміни. АСолю, стоїмо, посушимо, кричать Б білимо, варю, ходиш, співає В веземо, ходимо, шиє, печеш Г принесу,
Английский язык
1 год назад
ПОМОГИТЕ ПОЖАЛУЙСТА С АНГЛИЙСКИМ!!!!​
Русский язык
2 года назад
ПОМОГИТЕ ПРОДОЛЖИТЕ ПРЕДЛОЖЕНИЕ!ДАЮ 35 БАЛОВ!​
Математика
2 года назад
бөлуді орында,білім лэнд​
Алгебра
8 лет назад
Помогите пж !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Алгебра
8 лет назад
решите пожалуйста, буду благодарен, срочно