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

сделать 1, 2 задание Буду очеееень благодарна ❤️

205
382
Посмотреть ответы 1

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

milenavetoshkina
milenavetoshkina
4,8(27 оценок)

1) можешь поиздеваться над паскалем , вбей пятое совершенное число  33 550 336: d

 

program c1; var a,b,i,j: integer; begin readln(a); writeln; for i: =1 to a do begin b: =0; for j: =1 to i div 2 do begin if i mod j = 0 then b: =b+j; end; if b=i then write (i,' '); if i mod 1000 = 0 then write ('.',' '); end; end.

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