Var s : string;
i, k : integer;
begin
Readln(s);
k:=0;
for I := 1 to Length(s) div 2 do
if s[i]= s[Length(s)-k] then k:=k+1;
if k= Length(s) div 2 then Write('Полиндром') else Write('Не полиндром'); Readln
end.
Да тут даже не информатика, здесь нужно просто найти минимальное число на которое делятся все 5 чисел, 1 не в счет а двойка входит в четверку, значит перемножаем оставшиеся 3*4*5=60
Uses crt;
var x,y:real;
begin
readln(x);
if x<4 then y:=2*x*x*x+1/x-5
else y:=3*x*x-2;
writeln(y);
<span>end.</span>
Var i,p:real;
begin
i:=0.1;
p:=1;
while (i<=10) do
begin
p:=p*(1+sin(pi*i/180));
i:=i+0.1;
end;
writeln ('Rezultat: ',p);
readln;
end.
#include<iostream>using namespace std;
int main(){ int n; cin>>n; int a[n]; for(int i=0;i<n;i++){ cin>>a[i]; } int sum=0; for(int i=0;i<n;i++){ sum+=a[i]; } cout<<"Sum = "<<sum<<endl;}