Регистрация
05971vitaznadez
27.10.2020 11:30
Информатика
Есть ответ 👍

Шенбердин радиусы R берлген. Шенбердин узындыгын табындар​

149
178
Посмотреть ответы 1

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

PUPOK2101
PUPOK2101
4,6(46 оценок)

var s: integer; i,k: longint; beginreadln(k); i: =3; while i< k-1 do begini: =i+2; if k div i=k/i then inc(s); end; writeln(s,' delitelei'); end.

 

var i,j: integer;

begin

for i: =1 to 20 do

for j: =1 to 20 do

if sqr(j)*i< 20 then writeln('x=', i,' y=', j,' z=', sqr(j)*i);

end.

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