Var x, a, b,., c, d: integer;
begin
readln(x, a, b);
if ((x > a) and (x < b)) then
writeln(a; b);
end.
Значит так,в 5 номере мы имеем две команды: 1 - возведи в квадрат и 2 - прибавь 1. По условию из числа 1 мы должны сделать число 10 используя не более четырёх команд. Поехали.
2 (добавляется +1 к числу 1)
1 (возводит в квадрат наше число,значение которого уже равно двум)
2 (добавляет +1 к нашему числу,имеющее значение 8)
2 (добавляет +1 нашему числу,имеющее значение 9)
Вот так вот у нас получилось число 10.
Так же есть второй способ,не буду его расписывать,укажу в ответе.
Ответ : 1) 2 1 2 2 либо 2) 2 2 1 2
В 6 задании идентичная задача.Цель: из 4 получить 58.Перейдём сразу к решению.
1 (добавляется +3 к числу 4)
2 (возводится в квадрат число 7)
1 (добавляется +3 к 49)
1 (добавляется +3 к 52)
1 (добавляется +3 к 55)
Ответ: 1 2 1 1 1
Var n, f, o: string; a, i: integer;
begin
write('Введите фамилию ');
Readln(f);
write('Введите имя ');
Readln(n);
write('Введите отчество ');
Readln(o);
a := length(n) + length(f) + length(o);
Writeln('Длина имени, фамилии и отчества равна ', a);
Writeln('Инициалы ', f[1], '. ', n[1], '. ', o[1], '. ');
a := 0;
for i := 1 to length(f) do
if f[i] = 'и' then a := a + 1;
Writeln('Количество букв и в фамилии ', a);
<span>end.</span>