Среди всех трехзначных чисел вывести на экран в строчку те числа, которые делятся на m (вводится с клавиатуры). также найти их количество.

120

404

Посмотреть ответы 2

Ответы на вопрос:

olesyaprk

Информатика

4,6(27 оценок)

Var a,m,k: integer; begin write('m = '); readln(m); k: =0; for a: = 100 to 999 do if a mod m = 0 then begin write(a,' '); k: =k+1; end; writeln; writeln('k = ',k); end. пример работы программы: m = 13 104 117 130 143 156 169 182 195 208 221 234 247 260 273 286 299 312 325 338 351 364 377 390 403 416 429 442 455 468 481 494 507 520 533 546 559 572 585 598 611 624 637 650 663 676 689 702 715 728 741 754 767 780 793 806 819 832 845 858 871 884 897 910 923 936 949 962 975 988 k = 69

Pomogalka228123

Информатика

4,7(63 оценок)

//pascalabc.net 3.4.2

begin

var num : = readinteger();

if (num in [1000..9999]) then

begin

for var i : = 1 to 4 do

if (num.tostring[i].todigit mod 2 < > 0) then

begin

write('нет');

exit;

end;

write('да');

end

else

write(' наверное число');

end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.