Program n1;
var st: string;
i,k: integer;
begin
st:='абракадабра';
k:=0;
for i:=1 to st.Length do
if st[i]='а' then k:=k+1;
writeln('в этом слове ',k,' букв а');
end.
Конечно нет.
Например, схема телефона ничего не скажет о том, какая в нем записана информация. Карта местности ничего не скажет о том, какая там сейчас погода, схема проезда к кинотеатру ничего не скажет, о том, каково в данное время состояние дорог и т.п.
Теоретически
1 символ 8 бит. 2500*8=20000 бит.
20000/7200=2,78 сек/стр
<span>90 сек / 2,78 = 32,37 стр. </span>
Var
c:real;
begin
writeln('Введите число');
readln(c);
if c<0 then c:=c*-1;
writeln('Модуль числа=',c);
<span>end.</span>