Линейная структура на языке<u>Pascal</u>
Нахождение расстояния
var V,S,t:real;
begin
readln(V,t);
S:=V*t;
writeln(S);
end.
Ветвление
var a,b:integer;
begin
readln(a,b);
if (a>b) then writeln('+++') else
writeln('---');
readln;
end.
Цикл
var i:integer;
begin
for i:=1 to 5 do writeln(i);
readln;
end.
а) ЖирафЗебра
б) 1. Подчеркнуть первую букву
2. Записать букву, которая в алфавите предшествует подчеркнутой
в) ТАКДЕРЖАТР
г) Буквы, после которых следуют те, с которых не начинаются названия животных + Я (т.к. стоит последняя в алфавите и после неё нет букв)
Блин что за муть как сложно,думаю как решить )
Если в алфавите 128 символов, то для задания 1 символа используется код в 7 бит (128=2⁷).
За 2 минуты пользователь напечатает 120·2·7 = 1680 бит информации.
В 1 байте 8 бит, значит ответ 1680÷8=210 байт