Берем для примера любое число. Допустим 1172. Нужно перевести его в 5-ричную систему счисления. Необходимо делить число на основание результирующей системы счисления в которую хотим перевести, пока не останется число, меньшее этого <span>основания результирующей системы счисления</span>. Чтение ответа нужно делать слева направо. Дальше на скриншоте:
Пусть правильный ответ 5
Var a:integer;
Begin
A:=0;
While a<>5 do Readln(a)
<Остальная часть программы>
Var
x,y:real;
Begin
writeln('Введи значение аргумента х: ');
readln(x);
if x<-5 then y:=x;
if x>-5 and x<5 then y:=abs(x+2);
if x>5 then y:=cos(x);
writeln('значение функции в точке равно ',y);
readln;
End.
Событие А - первая буква гласная
Событие В - последняя буква гласная
Высказыванию НЕ(первая буква гласная И последняя буква гласная)
соответствует логическое выражение:
¬(A* B)= ¬A+¬B --> " первая не гласная или последняя не гласная"
---> 1) Иван 2) Пётр 3) Светлана