Напишите программу, которая находит все числа в диапазоне от a до b , сумма цифр которых не меняется при умножении на 2, 3, 4, 5, 6, 7, 8 и 9 (например, число 9). используйте функцию для вычисления суммы цифр числа. простым способом, для начинающих входные данные входная строка содержит два натуральных числа – границы диапазона a и b . гарантируется, что a ≤ b . выходные данные программа должна вывести все числа, удовлетворяющий условию, в одной строке, разделив их пробелами. примеры входные данные 1 10 выходные данные 9

160

403

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

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

SofiZ2005

Информатика

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

Program n1; function sumdig(x: integer): integer; var sum: integer; begin sum: =0; while x< > 0 do begin sum: =sum+x mod 10; x: =x div 10; end; sumdig: =sum; end; function opr(x: integer): boolean; var i,k: integer; begin opr: =false; k: =0; for i: =2 to 9 do if sumdig(x)=sumdig(x*i) then k: =k+1; if k=8 then opr: =true; end; var a,b,i: integer; begin readln(a,b); for i: =a to b do if opr(i) then write(i,' '); end.

prve17

Информатика

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

Pascalabc.net 3.3.5, сборка 1650 от 01.04.2018 внимание! если программа не работает, обновите версию! function sod(self: integer): integer; extensionmethod; begin result: =0; while self< > 0 do begin result+=self mod 10; self: =self div 10 end end; function isgood(self: integer): boolean; extensionmethod; begin var sd: =self.sod; result: =true; for var i: =2 to 9 do begin result: =(i*self).sod=sd; if result=false then exit end end; begin var (a,b): =readinteger2; range(a,b).where(t-> t.isgood).println end. пример 1 1000 9 18 45 90 99 180 198 297 396 450 495 549 594 693 792 819 891 900 909 918 945 990 999

juwal

Информатика

4,4(3 оценок)

PASCAL

program qq;

var a,b,s,p : integer;

begin

writeln('Введите стороны прямоугольника');

read(a,b);

s:=a*b;

p:=2*(a+b);

writeln('Площадь прямоугольника равна ',s);

writeln('Периметр прямоугольника равен ',p);

end.

Объяснение:

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

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

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

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

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

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

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

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

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

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