Добавил ещё команду печати списка найденных троек, а не только их количества (строка writeln('(',a,', ',b,', ',c,') '); ).
Program Vlad971997;
uses crt;
const n=100;
var
a,b,c,count: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
count:=0;
for a:=1 to n do
for b:=1 to n do
for c:=1 to n do
if (a*a+b*b = c*c) and (a<b) then
begin
count:=count+1;
writeln('(',a,', ',b,', ',c,') ');
end;
writeln('Всего найдено ',count,' пифагоровых троек');
end.
дуктом питания, упоминания о ней можно найти в древних летописях, и только после XVIII столетия она уступила свою популярность завезенному из Америки картофелю. Растение репа – ценный овощной и лекарственный продукт. Ее можно запекать, варить, фаршировать, добавлять в салаты. Репа обладает антисептическим, противовоспалительным, мочегонным, обезболивающим и ранозаживляющим действием. Она повышает аппетит, усиливает перистальтику кишечника, ускоряет процесс усвоения пищи организмом.
Объяснение:
баллы хочу