A(5,10)
B(13,12)
C(11,5)
D(11,8)
E(4,2)
F(2,4)
N(9,значения нет)
Ответ:стрелка
program zadacha;
var i:integer; stroka:string;
begin
readln(stroka);
for i:=1 to Length(stroka) do
if stroka[i]<>chr(ord(32)) then
write(stroka[i])
else
break;
end.
подстрока S0 вставляется в строку S в позицию номер 5
результат: ExamABCple
Var
n: longint;
i, sum: integer;
begin
Readln(n);
Sum := 0;
while n > 0 do
begin
Sum := sum + (n mod 10);
n := n div 10;
end;
Writeln(sum);
end.
Информатика - это наука, которая изучает законы, методы и способы накопления, хранения, обработки и передачи информации с помощью компьютеров и других технических средств. <span>по форме представления информация делится на письмо, звук, осязание, вкус и видео.</span>