Begin
for i:=1 to 10 do begin
read (b[i]);
end;
for k:=1 to 10 do begin
a[i]:= b[i]*5;
write (a[i]);
end;
end.
Пусть меня кто-то исправит, но у меня получается 10000001110110
Var key:integer;
begin
readln(key);
case key of
9583,1747:writeln('A, B, C');
3331,7922:writeln('B, C');
9455,8997:writeln('C');
end;
<span>end.</span>
Эта функция от трех переменных. Логическая схема во вложении. Удачи!
Http (hyper text transfer protocol)
Проторкол передачи данных, служащий для передачи html страниц (hyper text markup language)