var a:array [1..100] of real;
i,n:integer;
t:real;
Begin
randomize;
n:=20;
for i:= 1 to n do begin
a[i]:=random(n*10)- 10*n div 2 ;
write(a[i]:4);
if i mod 10=0 then writeln;
end;
t:=a[1]
for i:= 1 to n do begin
a[i]:=a[i]/t ;
write(a[i]:4);
if i mod 10=0 then writeln;
end;
End.
Флеш накопитель это внешнее устройство хранения информации чаще всего подключаемое по usb
u-Universal-универсальная
s-Serial-последовательная
b-Bus-шина
Чтобы обойтись без калькулятора, будем пользоваться степенями двойки (все равно переводить потом в килобайты или мегабайты).
1. Определим количество символов на странице
40×64 = 4×10×2⁶ = 2²×10×2⁶ = 10×2⁸
2. Определим количество символов в статье
32×10×2⁸ = 2⁵×10×2⁸ = 10×2¹³
3. В КОИ-8 каждый символ кодируется 8 битами, т.е. 1 байтом.
Объем статьи будет равен 10×2¹³ байт.
4. Переведем в килобайты, зная что 1 Кбайт = 2¹⁰ байт.
10×2¹³/2¹⁰ = 10×2³ = 10×8 = 80 Кбайт
<u>Ответ: 80 Кбайт</u>
Program vasha_zadacha_1;
var a,b,c:integer ;
begin
c:=0;
writeln('введите промежуток от');
readln(a);
writeln('до');
readln(b);
if a>b then
for b:=b to a do begin
if (b mod 5<>0) then c:=c+1;
end;
for a:=a to b do begin
if (a mod 5<>0) then c:=c+1;
end;
writeln('колличество чисел не кратных пяти в этом диапазоне ', c);<span>
end.</span>