var
a,F:integer;
begin
Write('Введите a: '); Read(a);
if a<-3 then F:=3*a*sqr(a)-1
else
if a>5 then F:=3*sqr(a)-2
else F:=sqr(a)-2*a+3;
Writeln('F=',F)
end.
Понятно, что 90 = Р и 93 = С - все четыре слова заканчиваются на эти буквы. Теперь смотрим: есть два слова, начинающиеся на одну букву: МАРС и МОРС. Ищем среди последовательностей две, которые тоже начинаются на одинаковый код. Это 80 84 90 93 и 80 05 90 93. Значит, 80 = М
Теперь ищем последовательности для МАРС и БАРС - у них совпадает вторая буква. Это 80 05 90 93 и 10 05 90 93, откуда имеем 05 = А и 10 = Б, а код 84 = О
Оставшаяся последовательность 87 62 90 93 для слова ПИРС даёт нам буквы 87 = П и 62 = И
Таким образом, СИРОП кодируется так:
93 62 90 84 87
Ответ 1, П310, т.к. после всех перемещений маятник будет в точке -50 гр
Var
i:integer;
begin
Writeln('Число Квадрат');
i:=14;
while i<=24 do
begin Writeln(i:4,sqr(i):9); i:=i+2 end
end.
<em><u>Результат выполнения программы:</u></em>
Число Квадрат
14 196
16 256
18 324
20 400
22 484
24 576
а)<em>8</em>"<u>бит</u>"
б)<em>0.026001</em>"<u>Кбайт</u>"
в)<em>1024</em>"<u>Кбайт</u>"-<em>1048576</em>"<u>байт</u>"-<em>8388608</em>"<u>бит</u>"
г)<em>1.5</em>"<u>Кбайт</u>"-<em>1536</em>"<u>бит</u>"