Регистрация
girrrrl
01.06.2020 10:15
Информатика
Есть ответ 👍

В ЧЕМ ПРОБЛЕМА?МНЕ НУЖНО РЕШИТЬ ВОТ ЭТУ ЗАДАЧУ ТОЛЬКО ЦИКЛАМИ И ФУНКЦИЕЙ:
Напишите программу, которая вводит натуральное число и находит все числа на отрезке [0, N], сумма цифр которых не меняется при умножении числа на 2,3,4,5,6,7,8 и 9 (например, число 9). Используйте функцию для вычисления суммы цифр числа.

program q;
function dl(n:integer):integer;
var b,r:integer;
begin
b:=0;
while n<>0 do begin
b:=b + n mod 10;
n:=n div 10;
end;
dl:=b;
end;
var b,r,n,f,a,c,h,j,k,u:integer;
begin
readln(n);
for f:=0 to n do begin
c := dl(f);
for a:=2 to 9 do
if c= dl(a* f) then writeln(c);
end;
end.

191
446
Посмотреть ответы 1

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

talex26052006в
talex26052006в
4,7(57 оценок)

var a,b,c: integer;

begin

  writeln('введите 3 целых числа');

  read(a,b,c);

  write('среди трех данных чисел есть хотя бы одна пара ');

  if (a=b) or (a=c) or (b=c) then write(' - выражение истинно') else write(' - выражение ложно');

end.

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