1. Число не меньше 50 и четное: 50
2. Опечатка, вероятно. Либо наибольшее X - тогда 99, либо наименьшее натуральное x, и тогда это будет 1, либо НЕ меньше 100, тогда 101
3. Немного запутано, но по идее: число должно быть четным и меньше 10. Максимальное такое число: 8
4. X больше либо равен 7, или x меньше 6. Единственное число, которое НЕ подходит под эту формулу: 6
10. Обычное уравнение вида 
При том что n только натурален. Очевидно, что n = 2
17. Надо просмотреть каждую пару чисел и поставить плюсик, если первое больше 15 или второе больше 9. Я загнул пять пальцев, лучше меня перепроверить
25. У эсминца всего 2500 из которых 500 принадлежат также и фрегату. А всего-всего их 4500. Значит ТОЛЬКО эсминцу принадлежат 2000, ТОЛЬКО фрегату тоже 2000, а фрегату всего 2000+500 = 2500. Я понимаю, что ничего из этой писанины понять невозможно, так что прилагаю картиночку, написанную замороженной куриной лапой.
45. Столько писанины, а проще взять листочек в клеточку и самому побыть роботом, исполняя команды. Если у меня все верно, то за один цикл получается общее смещение на 1 вверх и 1 вправо. Значит за 5 циклов будет смещение (5,5) и чтоб переместиться в начало надо дать команду (-5,-5)
53. Третья строчка аналогична: a = 2*4 + 7*3. Любой второклассник скажет, что это 29. Четвертая строчка аналогична: b = 30-29 = 1. Таким образом, у нас a = 29, b = 1. А просят найти именно b. В ответ пишем 1
Объяснение:
Задание 1
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
var a:=s.ToWords('.').Select(t->Trim(t)).ToArray;
var b:=s.ToWords(Arr('.',' '))
.GroupBy(t->t).Select(t->(t.Key,t.Count))
.Where(t->t[1]>1).Select(t->t[0]).ToArray;
a.Cartesian(b,(p,q)->p.Contains(q)?p:'')
.Where(t->t.Length>0).Distinct.PrintLines
end.
Примеры
Мама мыла полы. Маша ела кашу. Даша пила молоко. Таня мыла полы.
Мама мыла полы
Таня мыла полы
Мама мыла раму.
Маша ела кашу. Даша пила молоко. Таня мыла полы.
Мама мыла рамуТаня мыла полы
Задание 2
uses crt;
var n,i,k:integer;
begin
repeat
write('Введите натуральное число >0 n=');
read(n);
until n>0;
if n=1 then write('Простых множителей нет')
else
begin
write(n,'=');
i:=2;
while i<=n do
begin
k:=0;
while n mod i=0 do
begin
k:=k+1;
n:=n div i;
end;
if i<n then
begin
if k=1 then write(i,'*')
else if k>1 then write(i,'^',k,'*');
end
else
begin
if k=1 then write(i)
else if k>1 then write(i,'^',k);
end;
i:=i+1;
end;
end;
end.
Задание 3
var n,m,i:integer;
function fact(j:integer):longint;
begin
if j=1 then fact:=1 else fact:=j*fact(j-1);
end;
begin
readln(m,n);
for i:=m to n do if i mod 2 =0 then write(fact(i),' ');
writeln;
end.
Задание 4
program SomeProgram;
var i,n,summ:integer;
a:array[1..150] of integer;
begin
readln(n); {ввод размерности массива}
for i:=1 to n do readln(a[i]); {ввод массива}
summ:=0; {обнулим сумму на всякий случай}
for i:=1 to n do {собственно поиск суммы}
if a[i]=i then {коли номер элемента равен элементу, то...}
summ:=summ+a[i]; {...прибавить к сумме значение элемента}
Writeln('Сумма:',summ);
end.
