procedure ReadFile(FileName:string); var f:text; s:string; i,k:integer; begin assign(f,FileName); reset(f); while not eof (f) do begin { пока не конец файла } readln (f, s); for i:= 1 to length(s) do begin k:=pos(s[i], alphabet); if k=1 then k=length(alphabet); {это приколы изза я} if k>1 then s[i]:=alphabet[k-1]; end; writeln(s); end; close(f); end;
#include <iostream> #include <cstdio> #include <cmath> using namespace std; int main() { int a, b, c; cin>>a>>b>>c; if ((a + b < c) || (a + c < b) || (b + c < a)) { cout<<"Не треугольник"; return 0; } if ((a * a + b * b == c * c) || (a * a + c * c == b * b)|| (c * c + b * b == a * a)) { cout<<"Прямоугольный"; return 0; } if ((a * a + b * b > c * c) || (a * a + c * c > b * b)|| (c * c + b * b > a * a)) cout<<"Остроугольный"; else cout<<"Тупоугольный"; }
const alphabet="";
var FileName:string
procedure ReadFile(FileName:string);
var f:text;
s:string;
i,k:integer;
begin
assign(f,FileName);
reset(f);
while not eof (f) do begin { пока не конец файла }
readln (f, s);
for i:= 1 to length(s) do begin
k:=pos(s[i], alphabet);
if k=1 then k=length(alphabet); {это приколы изза я}
if k>1 then s[i]:=alphabet[k-1];
end;
writeln(s);
end;
close(f);
end;
Begin
read(FileName);
ReadFile;
readln;
End.