Question

помогите с 3-6 заданием по программированию пожалуйста

Answer 1

#1

var

x : integer;

chanse : real := 0;

begin

readln(x);

chanse := (x/12)*100;

write('Chanse: ');

write(chanse:2:2);

writeln('%');

for var i:=1 to 12 do

 for var j:=1 to 12 do

   if (j + i = x) then

     writeln(j + ' ' + i);

end.

#2

//Стремное условие, я его не понял//

#3

var

n : integer;

begin

readln(n);

for var a:=1 to n do

for var b:=1 to n do

for var c:=1 to n do

if (a*a + b*b = c*c) then

writeln(a+ '^2 + ' + b + '^2 = ' + c + '^2')

end.

#4

var

x : integer;

chanse : real := 0;

begin

readln(x);

chanse := (x/18)*100;

write('Chanse: ');

write(chanse:2:2);

writeln('%');

for var i:=1 to 12 do

 for var j:=1 to 12 do

   for var b:=1 to 12 do

     if (j + i + b = x) then

       writeln(j + ' ' + i + ' ' + b);

end.

Answer 2

//PascalABC