Номер 1.
program n_1;
var arr: array of integer; i, a, b, n: integer;
begin
writeln('Введите длину массива, диапазон индексов массива для поиска четных чисел');
read(n, a, b);
SetLength(arr, n);
writeln('Введите элементы массива');
for i:=1 to n do read(arr[i]);
for i:=a to b do if arr[i] mod 2 = 0 then write(arr[i], ' ');
end.
Номер 2.
program n_1;
var arr: array of integer; i, n, m, s, x: integer; a:boolean;
begin
a:=false;
writeln('Введите длину массива и число, произведение чисел больше требуется найти');
read(n, m);
SetLength(arr, n);
writeln('Введите элементы массива');
for i:=1 to n do read(arr[i]);
for i:=1 to n do if arr[i]>m then begin a:=true; s:=arr[i]; x:=i; break; end;
if a=true then begin
for i:=x+1 to n do if arr[i]>m then s:=s*arr[i];
writeln(s);
end
else writeln('Таких чисел в массиве нет');
end.
Комбинаторика вроде как, но даже логически понятно если подумать что это не + и -, а 0 и 1,и тут логически должно стать понятно что все как и там,а значит два в третьей степени,а именно 8 различных, да что уж там вот все 8
---
--+
-+-
-++
+--
+-+
++-
+++
print(*(i for i in range(int(input()) + 1) if str(i * i).endswith(str(i))))
Краткая биография:Лебедев — основоположник вычислительной техники в СССР, директор ИТМиВТ, академик АН СССР (1953) и АН УССР (12.02.1945), Герой Социалистического Труда. Лауреат Сталинской премии третьей степени, Ленинской премии и Государственной премии
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function NOD(a,b:integer):integer;
begin
while b>0 do (a,b):=(b,a mod b);
Result:=a
end;
procedure FracAdd(n1,d1,n2,d2:integer; var n,d:integer);
// сложение дробей n1/d1 + n2/d2 = n/d
begin
(n,d):=(n1*d2+n2*d1,d1*d2);
var k:=NOD(n,d);
if k<>1 then (n,d):=(n div k,d div k)
end;
begin
var (a,b):=ReadInteger2('Введите числитель и знаменатель 1й дроби:');
var (c,d):=ReadInteger2('Введите числитель и знаменатель 2й дроби:');
var m,n:integer;
FracAdd(a,b,c,d,m,n);
if n=1 then Writeln('Сумма=',m)
else Writeln('Сумма=',m,'/',n)
end.
<u>Пример</u>
Введите числитель и знаменатель 1й дроби: 6 15
Введите числитель и знаменатель 2й дроби: 12 300
Сумма=11/25
<u>Замечание:</u> вводить только натуральные числа!