const
n = 30;
var
a: array [1..n] of integer;
i, mini: integer;
begin
for i := 1 to n do
begin
a[i] := random(30);
write(a[i], ' ');
end;
writeln;
mini := 1;
for i := 1 to n do
if a[i] < a[mini] then
mini := i;
writeln('A[', mini, ']=', a[mini]);
end.
Python:
slovo = str(input())
a = slovo[::-1]
if slovo == a:
print("yes")
else:
print("no")
pascal:
function palindrom(var arg:string):boolean;
var i:byte;
str:string;
begin
palindrom:=false;
str:='';
for i:=length(arg) downto 1 do
str:=str+arg[i];
if str=arg then palindrom:=true; end;
var s:string;
begin readln(s); writeln(Palindrom(s));
readln;
end.
Var A,k:integer;
Begin
k:=0;
Repeat
Read(A);
if A mod 4 = 0 then k:=k+1;
Until A mod 10 = (A div 10) mod 10;
WriteLn('Искомое количество: ',k);
End.
Ответ:
#include <iostream>
using namespace std;
int main() {
int prev = 0;
bool hasTwoEquals = false;
while(true){
int cur;
cin >> cur;
if (cur == 0){
break;
}
if (prev == cur){
hasTwoEquals = true;
break;
}
prev = cur;
}
if (hasTwoEquals){
cout << "Yes" << endl;
}
else{
cout << "No" << endl;
}
return 0;
}