<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>№1</u>
begin
var a:=ReadInteger.ToString;
Writeln(a=a.Inverse)
end.
<u>Примеры</u>
2441
False
1991
True
<u>№2</u>
begin
var n:=int64(ReadInteger);
var s:=n.ToString;
var s2:=(n*n).ToString;
if s2.Right(s.Length)=s then Writeln('Афтоморф')
else Writeln('Не автоморф')
end.
<u>Примеры</u>
625
Афтоморф
1020
Не автоморф
Вот такое соответствие здесь:
1-А
2-Г
3-В
4-Б
5-Д
( ( X < 5 ) → ( X < 3 ) ) ∧<span> ( ( X < 2 ) → ( X < 1 ) ) =
( </span> ( X < 5 ) ∨ ( X < 3) ) ∧ ( ( X < 2 ) ∨ ( X < 1 ) ) =
( ( X > 4) ∨ ( X < 3) ) ∧ ( ( X > 1 ) ∨ ( X < 1 ) ) =
(X ∈ (-∞; 3) U (4; +∞) ) ∧ ( X ≠ 1 )
Ответ: Для всех X ∈ (-∞; 1) U (1; 3) U (4; +∞)
1. Ответ представлен в скриншоте
2. Напечатанное значение в результате программы -40
3 Напечатанное значение в результате программы -24
Ответ:
var a:array[1..5]of integer;
i,m:integer;
begin
m:=0;
write('Массив: ');
for i:= 1 to 5 do
begin
a[i]:= random(21)-10;
write(a[i]:4);
if (a[i]>0) and (i mod 2 = 0) then m:=a[i]
end;
writeln;
for i:= 1 to 5 do
if (a[i]>0) and (i mod 2 = 0)and (a[i] < m) then m:=a[i];
if m=0 then writeln ('В массиве нет положительных элементов среди элементов с чётными номерами')
else writeln('Наименьший положительный элемент среди элементов с чётными номерами равен ',m)
end.