Решу только первую задачу.
const k=?; {Вместо "?" подставить любое значение k}
Var x,i,s:integer;
Begin
write('x=');
readln(x);
s:=1;
for i:=1 to k do
begin
s:=s*(x mod 10);
x:=x div 10;
end;
writeln('s=',s);
End.
Перефразируем, что бы было понятней:
Первая буква не согласная и последняя буква не гласная
Или
Первая буква гласная и последняя буква согласная
Ищем:
1) первая буква гласная, последняя буква согласная - подходит
2)первая буква согласная, последняя буква согласная - не подходит
3) Первая и последняя гласные - не подходит
4)первая буква согласная, последняя гласная - не подходит
Ответ: 1)Юлиан
Это на первую
program chislo;
<span> var a,b,c,k,x: integer;
Begin
Writeln('Введите трехзначное число:');
readln(x);
a:=x div 100;
b:=x mod 100 div 10;
c:=x mod 10;
k:=a*b*c;
writeln('произведение чисел = ',k);
readln;
End.
Вторая Задача
</span>
program chislo;
var a,c,x: integer;
k:real;
Begin
Writeln('Введите трехзначное число:');
readln(x);
a:=x div 100;
c:=x mod 10;
k:=a/c;
writeln('деление чисел = ',k);
readln;
<span>End.</span><span>
</span>
Ответ:
Procedure dec2oct(n: longint); { перевод натурального десятичного n в восьмеричную систему счисления и вывод результата } const alpha = '01234567'; var s: string; i: integer; begin s : = ''; while n > 0 do begin s : = alpha[(n mod 8) + 1] + s; n : = n div 8 end; for i: =length(s) to 9 do s: ='0'+s; write(s) end; { использование } var x: longint; begin write('введите десятичное число: '); read(x); write('в восьмеричной системе счисления: '); dec2oct(x); writeln end. тестовое решение: введите десятичное число: 1234567 в восьмеричной системе счисления: 0004553207
Объяснение:
