помогите с 3-6 заданием по программированию пожалуйста
Помогите с 3-6 заданием по программированию пожалуйста
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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Экономика.
Экономика.
Русский язык.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Химия.
Русский язык.
Геометрия.