Напишите пожалуйста первую и вторую программы (паскаль)

0
21 апреля аноним,  в категории Компьютеры, Интернет
 
Ваш ответ
Отображаемое имя (по желанию):
Анти-спам проверка:

3 Ответы
0
21 апреля аноним, 
2)
var i1,i2,i3, kolvo: integer;
begin
 for i1:=1 to 9 do
 for i2:=0 to 9 do
 for i3:=0 to 9 do
 if (i1*100+i2*10+i3) = power((i1+i2+i3),3) then
 begin
 write (i1,i2,i3,' ':5);
 inc(kolvo);
 end;
 if kolvo=0 then writeln ('NO');
end.

3) {задумался что-то и решил ее}
var i1,i2,i3,i4,i5,i6, kolvo: integer;
begin
 kolvo:=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
 for i5:=0 to 9 do
 for i6:=0 to 9 do
 if (i1+i2+i3) = (i4+i5+i6) then
 begin
 {write (i1,i2,i3,i4,i5,i6,' ':5); sleep (111); } { раскроешь скобки - будут на экране счастливые билеты}
 inc(kolvo);
 end;
 writeln ('kolvo=',kolvo);
end.
0
21 апреля аноним, 
1)
var i,j,k,l,m:integer;
begin
m:=0; for i:=1 to 100 do for j:=1 to i do for k:=1 to j do for l:=1 to k do
 if j*j+k*k+l*l=i*i then begin writeln(j:4,k:4,l:4,i:4); inc(m) end;
writeln('n=',m)
end.

2)
var i,j,k:integer;
begin
k:=0; for i:=100 to 999 do begin j:=i div 100+i div 10 mod 10+i mod 10;
 if j*j*j=i then begin inc(k); writeln(i) end end;
if k=0 then writeln('NO')
end.
0
21 апреля аноним, 
cyberforum сайт
Copyright © 2016 Вопросы и ответы онлайн - sovety.info | Для связи: site@sovety.info
Мнение редакции может не совпадать с мнением авторов вопросов и ответов.
Индекс цитирования
...