1. Команды
2. Контекстное
3.Главное
4. Компьютер.
Вроде так.
Var y,x: Integer;
begin
writeln('Введите x');
readln(x);
if (x>3) then y:=3*x-1
else y:=10;
writeln('Ответ, y = ', y);
end.
11₄ = 4×1+1 = 5₁₀. А дальше прибавляем по четверичной единичке в третьем разряде числа, т.е. по 100₄, чтобы не затронуть два младших разряда. где 11. Числу 100₄ соотвествует 4²=16₁₀, поэтому получем ряд чисел 5, 5+16=21, 21+16=37. Все... следующее число уже превысит 40.
Ответ: 5, 21, 37.
Предложение в исходном виде было таким:
"Любая инфор может быть представлена с помощью чисел"
1) Ошибка "Нельзя преобразовать тип real к integer"
При исправлении
var
a, b: real;
begin
a := 26 mod 11;
b := 3;
b := 6 + a * b;
a := b / 3 * a;
writeln(a);
end.
выдает 24
2) 52