На языке паскаль составить программу, которая в диапазоне найдёт все тройки натуральных а,в,с, подчиняющихся равенству a^2+в^2=с^2

115

182

Посмотреть ответы 2

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

Даріна11111111

Информатика

4,5(26 оценок)

// pascalabc.net 3.2, сборка 1344 от 22.11.2016 // внимание! в других версиях работа не гарантируется! begin for var a: =1 to 300 do for var b: =1 to 300 do for var c: =1 to 300 do if a*a+b*b=c*c then write(a,',',b,',',c,' '); end.

zherukova00

Информатика

4,5(56 оценок)

Program proga_25_3; var a: text; s,p : string; i: integer; f: boolean; begin write('введите имя и путь к файлу '); read(p); assign(a, p); reset(a); while not eof(a) do begin readln(a,s); for i: =1 to length(s) div 2 do if s[i]=s[length(s)-i+1] then f: =true else begin f: =false; break; end; if f then writeln (s); end; close(a); end.