Var s:string;k:integer;
procedure SubInc(var s:string;var k:integer);
begin;
while pos('ea',s)<>0 do
begin;
delete(s,pos('ea',s),2);
inc(k);
end;
end;
begin;
readln(s);
if length(s)<>10 then exit;
SubInc(s,k);
writeln(k);
<span>end.</span>
Program primer;
const n=5;
var a:array[1..n] of integer;
i:integer;
begin
writeln ('vvedite massiv');
for i:=1 to n do
readln( a[i]);
for i:=1 to n do
if (a[i] mod 2=0)>(a[i] mod 2=1) then
writeln ('ceotnih cisel bolise')
else
writeln('neceotnih cisel bolise');
readln;
<span>end.</span>
<span>uses crt;
var max,i,min,now:longint;
begin
clrscr;
writeln (' vvedite kol-vo chisel ');
readln (n);
</span>write ('vvedite 1 chislo: ');
readln(now);
<span>max:=now;
min:=now;
for i:=2 to n do begin
write ('vvedite ',i, ' chislo: ');
readln(now);
if now>max then max:=now;
if now<min then min:=now;
end;
writeln ('minimum raven: ',min);
write ('maximum reven: ',max);
readln;
end.</span>
Const flats_per_floor = 3;var n, flat, floor: Integer;begin Write('n = '); ReadLn(n); WriteLn('Какой номер квартиры нужен человеку?'); ReadLn(flat); floor := (flat - 1) div flats_per_floor + 1; if (floor > n) or (flat <= 0) then begin writeln('Неверный номер квартиры'); exit; end; if (floor mod 2 = 1) then writeln('Едем на ', floor, ' этаж') else writeln('Едем на ', floor - 1, ' этаж');end.
1) Биологическая информация -
генетической кодирование
информации, управление
сложными психологическими
процессами у высших
животных на основе передачи
энергии.
2) Социальная информация -
это способ (форма) передачи
знаний, эмоций и волевых
воздействий в обществе.
3) Кибернетическая
информация - это
характеристики управляющего
сигнала, передаваемого по
линии связи.
4) Философская информация -
это взаимодействие,
отражение, познание.
5) Информация - Это сведения
об объектах и явлениях
окружающей среды, их
параметрах, свойствах и
состоянии, которые уменьшают
имеющуюся о них степень
неопределённости неполноты и
знаний.
