Var a, b, c, S1, fin: integer;
S1 := edit1.text;
a := copy(S1,1,1);
b := copy(S1,2,1);
c := copy(S1,3,1);
fin := a + b + c;
edit2.text := fin;
На нажатие кнопки добавить код.
<span>Виды информации
Информация может существовать в различных видах:
текст, рисунки, чертежи, фотографии;световые или звуковые сигналы;радиоволны;электрические и нервные импульсы;магнитные записи;жесты и мимика;запахи и вкусовые ощущения;хромосомы, через которые передаются по наследству признаки и свойства организмов, и т. д.
</span>
<span><em>1. Информационным</em> называют <em>процесс</em>, связанный с определёнными операциями (действиями) над информацией, в ходе которых может измениться содержание информации или её форма. Это процессы сбора, обработки, хранения, накопления, передачи/получения информации.
<em>2. </em><em>Неинформационные процессы: а), г), е), к), л), н)
</em> <em>Получение информации: б), д)
</em> <em>Передача информации: з)
</em> <em>Хранение информации: м), и)
</em> <em>Обработка информации: </em><em>в), ж)</em>
</span>
var n,i,a,s:integer;
begin
write('n = ');
readln(n);
s:=0;
writeln('Введите ',n,' натуральных чисел');
for i:=1 to n do
begin
read(a);
if a div 100=4 then s:=s+a;
end;
writeln('s = ',s);
end.
Пример
n = 5
Введите 5 натуральных чисел
123 456 4321 45 401
s = 857