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

Определить все четырехзначные числа произведение цифр которых равно заданному числу k. вывести эти числа на экран монитора и определить количество

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

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

Irish23
Irish23
4,7(12 оценок)
Var k,i1,i2,i3,i4,n: integer; begin readln(k); n: =0; for i1: =1 to 9 do   for i2: =0 to 9 do   for i3: =0 to 9 do     for i4: =0 to 9 do     if i1*i2*i3*i4=k then       begin write(i1*1000+i2*100+i3*10+i4,' '); n: =n+1; end; writeln; writeln('n = ',n); end. пример: 20 1145 1154 1225 1252 1415 1451 1514 1522 1541 2125 2152 2215 2251 2512 2521 4115 4151 4511 5114 5122 5141 5212 5221 5411n = 24
progamesnester
progamesnester
4,5(78 оценок)
Program n1; var a,max: integer; begin max: =-1; readln(a); while a< > 0 do begin if a> max then max: =a; readln(a); end; writeln(max); end.

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