Ответ:
10 задание
1 4 9 16 25 36 49 64
9 задание, как понял так и решил, ты обрезал его
x=4-5=-1
x=-1+10=9
ответ б
//прога на Pascal`e
var
N : uint64;
K : real;
begin
write ('Введите кол-во ног: ');
readln (n);
write ('Введите отношение ног жуков к паукам: ');
readln (k);
if trunc (n/(k+1)) <> n/(k+1) then write ('Неверное условие!')
else
if trunc (n/(k+1)) mod 8 <> 0 then write ('Неверное условие!')
else write ('Жуков: ', n/(k+1)*k/6, ', пауков: ', n/(k+1)/8);
end.
Ответ:
пользователь
Объяснение:
ответ содержится в самом вопросе
Pascal
var
a,b : integer;
r : boolean;
begin
readln (a);
r := true;
b := a mod 10;
While a > 0 do
begin
if a mod 10 <> b then
begin
r := false;
a := 0;
end;
a := a div 10;
end;
if r then
writeln ('Все цифры числа одинаковы')
else
writeln ('Цифры числа различны');<span>
end.</span>