// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
function IsPalindrom(w:string):=(w.Length>1?w=ReverseString(w):False);
begin
var s:=ReadlnString('>');
Writeln('Палиндромов: ',s.ToWords.Where(w->IsPalindrom(w)).Count)
end.
<u><em>Тестовое решение</em></u>
> мадам ваш заказ уже несут - слышу топот официанта
Палиндромов: 3
program zadacha1;
var x, y, k, h:Real;
Begin
write('x=');Read(x);
h:=exp(3*ln(x));
k:=exp(5*ln(x));
y:=x-h/3+k/5;
Writeln('y=',y);
end.
Program zadacha2;
var x, y, h:Real;
Begin
write('x=');Read(x);
Write('y=');Read(x);
h:=sqr(1/2)-cos(x)+sin(2*x*y);
writeln('h=',h);
end.
Program zadacha4;
var x, y, h:real;
begin
write('x=');Read(x);
h:=abs(exp(4*ln(x))-exp(5*ln(x)));
y:=x- 10*sin(x)+h;
write ('y=',y);
end.
Ответ:
const g = 5; v = 7;
var a: array[1..g,1..v] of integer;
i,j,maxj,minj,p:integer;
begin
writeln('Массив: ');
for i:=1 to g do
begin
for j:=1 to v do
begin
a[i,j]:=random(90)+10;
write(a[i,j]:4)
end;
writeln
end;
for i:=1 to g do
begin
maxj:=1;
minj:=1;
for j:=1 to v do
begin
if a[i,j]>a[i,maxj] then maxj:=j;
if a[i,j]<a[i,minj]then minj:=j;
end;
p:=a[i,maxj];
a[i,maxj]:=a[i,minj];
a[i,minj]:=p;
end;
writeln;
writeln('Преобразованный массив: ');
for i:=1 to g do
begin
for j:=1 to v do write(a[i,j]:4);
writeln
end;
end.
Объяснение:
uses crt; {Подключение внешнего модуля}
var {Описание переменных}
a:array [1..100] of integer;
n,i:integer;
begin
write('n='); {Вывод текста на экран}
read(n); {Чтение текста}
for i:=1 to 3 do
a[i]:=random(51); {Значение первых 3 элементов}
for i:=4 to n do
a[i]:=((a[i-1]+a[i-2]+a[i-3]) mod 10); {Значение остальных элементов}
writeln('Последовательность:'); {Вывод текста на экран}
for i:=1 to n do
write(a[i],' '); {Вывод последовательности на экран}
writeln; {Перевод указателя на следующую строку}
write('N-ный элемент: ',a[i]); {Вывод текста и элемента на экран}
end.