Var
A:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(A);
WriteLn((A div 100)+(A mod 10))
End.
Настройка на локальном компьютере пользователя:
в IE Сервис->Свойства обозревателя->Подключения ->Настойка LAN->поставить галку напротив "использоваеть прокси-серер для подключений LAN", в поле "адрес" прописать IP адрес или доменное имя, в поле "порт" указать порт, на котором работает proxy сервер-> OK
Вот решение я приложил в файле и на картинке
Var
s, p, w : string;
begin
s := 'программирование';
p := copy (s, 1,8) + s[13];
w := copy (s, 8, 3);
write (p, ' ', w);
end.
var
a: array[1..9999] of real;
i, n, b: integer;
begin
randomize;
Write('Введите число эементов массива:'); readln(n);
b:=0;
for i:=1 to n do
begin
a[i]:=-5+random(11);
writeln('a[', i, ']=', a[i]);
if a[i]=5 then b:=b+1;
end;
writeln('Кол-во элементов, равных 5: ', b);
end.