Регистрация
bengamin1993
30.09.2022 08:55
Информатика
Есть ответ 👍

Program Main;
var a,b,c,N:integer;
begin
writeln('Введите N');
read (N);
for a:=1 to N-1 do
for b:=a+1 to N-1 do
for c:=1 to N-1 do
if a*a+b*b=c*c then
writeln (a:5,b:5,c:5)
end.
Выполните

294
299
Посмотреть ответы 1

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

Anastasiya21126
Anastasiya21126
4,6(1 оценок)

1: а,б (в-зарезерв.слово, д-с цифры, г,е - спецсимвол (& и ж - пробел)

2а:   "у нас 3пары" (вот именно так с пробелами)

 

2б: q1=1   q2=2   q1=15+2=17   q2=17*2=34

2с: а=3   б=100   б=100+3=103     с=3*103=309

 

 

 

 

 

 

 

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