Используем нумерацию слов не с 1, а с нуля. Заметим, что кодирование слов происходит аналогично кодированию чисел в 4-ричной системе счисления, поскольку мощность алфавита равна 4 (4 буквы). Буква А соответствует 0, К - 1, Р - 2, У - 3.
Тогда слово РАААА - первое слово, которое начинается на Р, - соответствует числу 20000.в 4-ричной системе счисления
Слово РУУУУ - последнее слово, которое начинается на Р, - соответствует числу 23333.
Переведем их в десятичную систему счисления.
20000_4 = (2*4^4)_10 = 512_10
23333_4 = (30000-1)_4 = (3*4^4-1)_10 = 767_10
(X_Y - число X в системе счисления Y. Когда будешь оформлять, Y надо написать как индекс справа внизу от числа X)
Так вот, при нумерации с 1 слово РАААА будет 513-м, а слово РУУУУ будет 768-м
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
Print(Range(1,25).Sum)
end.
<u><em>Результат:</em></u>
325
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>Вариант 1</u>
begin
var (x,a):=ReadReal2('Введите х и a через пробел:');
var y:real;
if x<=0 then y:=2*Sin(Abs(x))
else
if x<=5 then y:=Sqrt(x)
else
if x<=10 then y:=2*x*x-Sqrt(x)
else y:=Cos(2*x)/a;
Writeln('Y=',y)
end.
<u>Вариант 2</u>
begin
var (x,a):=ReadReal2('Введите х и a через пробел:');
Writeln('Y=',
x<=0 ? 2*Sin(Abs(x)) :
x<=5 ? Sqrt(x) :
x<=10 ? 2*x*x-Sqrt(x) : Cos(2*x)/a)
end.
<u>Примеры</u>
Введите х и a через пробел: 12.4 -3
Y=-0.315050171382724
Введите х и a через пробел: 5.8 1.156
Y=64.8716810842415
Не може
то му що якщо в 1 буде одне то в 2 буде 7 .
7+1 = 8
а повинно 7
В левом верхнем углу окна есть панелька, а на ней несколько пиктограмм: сохранить, вперёд, назад, создать... Тут же и пиктограмма принтера для быстрой печати. Если её нажать, то документ распечатается полностью. Если пиктограммы на этой панели нет, то справа у этой панельки есть стрелочка. Нажать на стрелочку, и откроются дополнительные инструменты для этой панельки. Там есть пиктограмма принтера. Нажми на неё, и она появится на панели инструментов.