Лепс-спел, бар-раб, вес-сев, пот-топ, уже-ежу , думаю хватит.
Иван - "первая буква согласная" - нет, "букв меньше 5" - да
<h2><u>1. </u></h2>
program raf105;
var abc,a,b,c: integer;
begin
write('Введите трёхзначное число: ');
readln(abc);
a:= abc div 100;
b:= (abc div 10) mod 10;
c:= abc mod 10;
abc:= c*100 + b*10 + a;
writeln('Число наоборот: ',abc);
end.
<h2><u>2. </u></h2>
program raf105;
var abc,a,b,c: integer;
begin
write('Введите трёхзначное число: ');
readln(abc);
a:= abc div 100;
b:= (abc div 10) mod 10;
c:= abc mod 10;
abc:= b*100 + c*10 + a;
writeln('Первое число переместили в конец: ',abc);
end.
<h2><u> </u></h2><h3><u>PascalABC 3.4.2</u></h3>
Я так понял у вас такое выражение
125(8) + 11101(2) * A2(16) - 141(8)
в скобках нужно указывать систему счисления.
переведу всё в десятичную и посчитаю
125(8)=85(10)
11101(2)=29(10)
A2(16) = 162(10)
141(8)=97(10)
Получается
85 + 29 * 162 - 97 = 4686(10) = 124E(16) = 11116(8) = 1001001001110(2)
//Pascal
//Числа случайные в диапазоне [-10;10]
var
A: array [1..15] of integer;
i: byte;
mult: longint;
begin
mult := 1;
randomize; //В PascalABC.NET можно убрать
for i := 1 to 15 do
begin
A[i] := random(21)-10;
if i mod 2 = 0 then mult := mult * A[i];
write(A[i], ' ');
end;
writeln;
writeln('Произведение элементов на четных местах = ', mult);
readln;
end.