var A, F, G: array [1..20] of integer;
sA, sF: string;
i: integer;
begin
for i:= 1 to 20 do
begin
A[i] := random(-20, 20);
F[i] := random(-20, 20);
sA += A[i] + ' ';
sF += F[i] + ' ';
end;
writeln('A: ' + sA);
writeln('F: ' + sF);
write('G: ');
for i:= 1 to 20 do
begin
if A[i] < F[i] then
G[i] := A[i]
else
G[i] := F[i];
write(G[i] + ' ');
end;
writeln();
end.
#include <iostream>
#include <string>
bool is_palindrome(const std::string& s) {
std::string r(s);
std::reverse(r.begin(), r.end());
return s == r;
}
int main() {
std::string s1,s2;
setlocale(LC_ALL, "Russian");
std::cout << "Введите число 1: ";
std::getline(std::cin, s1);
std::cout << "Введите число 2: ";
std::getline(std::cin, s2);
if (is_palindrome(s1)|| is_palindrome(s2))
std::cout << "Одно из введенных чисел является палиндромом " << std::endl;
else
std::cout << "Ни одно из введенных чисел не является палиндромом " << std::endl;
return 0;
}
var a,b,c,d,e,max:integer;
begin
writeln('Введите пять целых чисел');
readln(a,b,c,d,e);
max:=a;
if b>max then
max:=b;
if c>max then
max:=c;
if d>max then
max:=d;
if e>max then
max:=e;
writeln('Наибольшее число равно ', max);
end.