Из условия ясно, что у нас есть 3 числа ABC и DEF и три суммы
A+D,B+E,C+F из которых состоит итоговое число. и смотрим по пункту 3 у нас C+F - это две позиции справа , и нас интересуют 4 позиции слева в итоговом числе.
из пункта 2 условие если B+E < A+D то первые две позиции будут "A+D", а 3 и 4 слева - "B+E" , иначе первые две - "B+E", а 3 и 4 - "A+D", тоись, число полученное из первых двух позиций слева должно быть больше числа , полученного из 3 и 4 позиций слева. И смотрим на каждый вариант:
<span>1) 141215
14> 12 - подходит
2) 121514
</span>12< 15 - не подходит<span>
3) 141519
</span>14<15 - не подходит<span>
4)112112
</span>11<21 - не подходит
7x^2-3x+6=0
D=b^2-4ac=9-4*7*6=-159
рівняння розв'язків немає
//PascalABC.NET 3.1 сборка 1219 (от самих создателей)
function IsPrime(x: integer): boolean;
begin
var sqx := Round(Sqrt(x));
var i := 2;
while (i <= sqx) and (x mod i <> 0) do
i += 1;
Result := i > sqx;
end;
begin
Range(ReadInteger('a ='), ReadInteger('b =')).Where(IsPrime).Print;
end.
Издеваться изволите? Сварите вашего учителя заживо (это не призыв к насилию, а едкое замечание!), если он предлагает такие задачи.
Pascal:
var i, n: integer;
begin
n:=0;
for i:=10 to 99 do
if ((i mod 10)+(i div 10)=7) then inc(n);
writeln('Otvet: ',n, 'number(s)');
readln
end.