Подготовить рисунок "лето" в растровом редакторе. требования к рисунку: 1)использовать с кисточки и карандаша 2)использование фигур 3)надпись ) кто умеет хорошо рисовать в
200
411
Ответы на вопрос:
// pascalabc.net 3.0, сборка 1128 var i,j,k,n,p: longint; f: array[1..10,1..2] of longint; begin p: =2; i: =1; f[1,1]: =1; f[1,2]: =1; write('введите натуральное число не больше 2 147 483 647: '); read(n); while n< > 1 do begin if (n mod p)=0 then begin if f[i,1]< > p then begin inc(i); f[i,1]: =p; f[i,2]: =1 end else inc(f[i,2]); n: =n div p end else inc(p) end; k: =i; for i: =2 to k do for j: =1 to f[i,2] do write(f[i,1],' '); writeln end. тестовое решение: введите натуральное число не больше 2 147 483 647: 37534 2 7 7 383
Популярно: Информатика
-
дибилон113.01.2020 10:02
-
zwitterlord227.05.2022 00:47
-
ramzesrvc16.06.2022 04:18
-
maksimstelmach11.12.2020 08:52
-
Zan2203.06.2021 03:16
-
Макс1117123.12.2022 18:31
-
лол163502.08.2021 04:43
-
Чискейк22.09.2020 16:52
-
vtkmlth19.03.2020 19:46
-
olyazyuzko201731.03.2022 21:08