Информатика, опубликовано 2018-08-22 18:32:17 by Гость
Проверьте, делится ли выбранное число на 5, на 11 или 13нужно сделать в Pascal ABC
Ответ оставил Гость
Var a:integer;
begin
writeln(Введите число);
readln(a);
if (a mod 5=0) then writeln(Число ,a, делится на число 5)
else writeln(Число ,a, не делится на число 5);
if (a mod 11=0) then writeln(Число ,a, делится на число 11)
else writeln(Число ,a, не делится на число 11);
if (a mod 13=0) then writeln(Число ,a, делится на число 13)
else writeln(Число ,a, не делится на число 13);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на