Составьте программу,выясняющую,является ли данное слово перевертышем(так называются слова,читвющиеся одинаково слева направо и справа налево, например: топот,шалаш)
//PascalABC.NET 3.0 begin var s := ReadString('Введите слово:'); for var i := 1 to s.Length div 2 do if s[i] <> s[s.Length - i + 1] then begin write('Не перевертыш'); exit; end; write('Перевертыш') end.
// 8 begin var arr := ArrRandom(10); Sort(arr); arr.Println; Print('Sum = ', arr.Where(x -> x mod 5 = 0).Sum() + newline + 'Count = ', arr.Where(x -> x mod 5 = 0).Count); end.
// 9 begin var arr := ArrRandom(15); arr := arr.OrderByDescending(x -> x).ToArray; arr.Println; Print('array elements squares sum is = ', arr.Sum(x -> x * x)); end.
1. a; c 2. write(); writeln(). Пример: write(c) /поясняю: ln добавляется для перехода на следующую строку при выводе/ 3. Ошибка - в строке "writeln(введите значения переменных m и n);" не указана переменная k. Так же не нужны кавычки в выводе, а при вводе необходимы. Исправление: program prim_a; var m, n, k: integer;
begin writeln('введите значения переменных m, n и k'); read(m,n, k); writeln((m+n+k)*5); end. 4. a) program plowad; var a, h: real;
begin writeln('Введите основание треугольника и высоту'); readln(a, h); writeln('Площадь треугольника равна ', a*h/2); end. 5. program proizvedenie; var a, b: integer;
begin writeln('Введите двузначное число'); readln(a); b:=a mod 10; a:=a div 10; writeln('Произведение цифр двузначного числа равно ', a*b); end.
begin
var s := ReadString('Введите слово:');
for var i := 1 to s.Length div 2 do
if s[i] <> s[s.Length - i + 1] then
begin
write('Не перевертыш');
exit;
end;
write('Перевертыш')
end.