Var s: string; i: integer; begin writeln('введите строку: '); readln(s); for i : = 1 to length(s) div 2 do if s[i] < > s[length(s) - i + 1] then begin writeln('не палиндром'); halt; end; writeln('палиндром'); end.
emaykova785
05.09.2021
Const a = -2.05; b = -4.05; c = 3.4; h = -0.2; var x: real; begin x : = a; repeat if x + c - 0.00084 < 0 then writeln('x = ', x: 10: 5, ' y - не определен') else writeln('x = ', x: 10: 5, ' y = ', (x * sin(sqrt(x + c - 0.: 10: 5); x : = x + h; until x < = b; end.