// pascalabc.net 3.0, сборка 1150 от 22.01.2016 begin var s: =readlnstring('введите слово: ').tolower; if s=reversestring(s) then writeln('перевертыш') else writeln('не перевертыш') end. тестовое решение: введите слово: шалаш перевертыш введите слово: револьвер не перевертыш
Спасибо
Ответ дал: Гость
program xxx; var i, n, max : integer; s : real; a : array [1..20] of integer; begin write ('введите n= '); readln(n); for i: =1 to n do readln (a[i]); max: = a[1]; for i: =1 to n do if a[i] > max then max : = a[i]; s: = sqrt(max); write ('корень из наибольшего эл-та =', s)end.
Популярные вопросы