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
Примеры?
Дискета
Жесткий диск
Компакт-диск
Карта памяти
Флешка
Кассета
Пластинка
Перфокарта
Можно долго продолжать этот список...
мощность алфавита 128 это значит один символ занимает 7 байт
128 = 2^7(2 в 7 степени)
определим сколько занимает одна страница
30*60=1800 символов
1800*7 байт= 12600 байт занимает одна страница
а объем реферата 12600 делим на 12600 = 1 страница
Ответ: 1 страница в реферате.
Var a:array of Integer; n,i,max,ind:Integer;
begin
Readln(n);
SetLength(a,n);
for i:=0 to Length(a) do
readln(a[i]);
max:=a[0];
ind:=0;
for i:=0 to Length(a) do
if abs(a[i])>abs(max) then
begin
max:=a[i];
ind:=i;
end;
n:=a[0];
a[0]:=max;
a[ind]:=n;
for i:=0 to Length(a) do
write(a[i]:3);
readln;
<span>end.</span>
<span>program HelloWorld;</span>
var S: real;
begin
writeln('Введите значение температуры:');
readln(S);
<span>
if (s>36.6) then </span>
<span> writeln('</span>Не здоров!')
else
writeln('здоров!')
end.