1.Начало
2.Сделать ход на 2 клетки вправо
3.Сделать ход вверх на 1 клетку
4.ход на 2 клетки влево
5.Ход на 2 клетки вверх
6.ход на 4 клетки вправо
7.ход на 2 клетки вниз
8.Ход на 1 клетку вправо
9.ход на 1 клетку вверх)
У тебя не правильно сделан алгоритм
var x: integer;
begin
write('Введите число: ');
readln(x);
if x mod 2=0 then write('число четное')
else write('число нечетное');
end.
Var a, b, c, d, i : integer;
Begin
read(a);
read(b);
read(c);
read(d);
for i := a to b do
if (i mod c = d) then
writeln(i);
writeln();
for i := a to b do
if frac(sqrt(i)) = 0 then
writeln(i);
writeln();
for i := 2 to a-1 do
if a mod i = 0 then begin
writeln(i);
exit;
end;
End.
Результат вычисления выражения = 282472583184
В 3-ричной системе = 1000000002222222222222100
Кол-во цифр 2 = 13
9^8+3^24-18 = 3^24 + 3^16 - 2*3^2
3^24(3) = 1000000000000000000000000 - нет 2
3^16 - 3^2 (3) = 2222222222222200 - 16-2 = 14 двойки
3^16 - 3^2 - 3^2 (3) = 2222222222222100 - забирается 1 двойка
Ответ 14-1=13
Есть разные целые типы, но тебе подходит ShortInt: от -128 до 127