1)
Program n1;
var a,b,i: integer;
begin
readln(a,b);
for i:=a to b do write(i*5,' ');
end.
2)
Program n2;
var a: real;
i: integer;
begin
readln(a);
for i:=2 to 24 do if i mod 2=0 then write(a*i/10,' ');
end.
Объяснение:
3*10^4+2*10^3+6*10^2+7*10^1
Для начала переведем 100Мбит в байты.
100Мбитс=100*1024*1024/8=13107200 байт
13107200 байт*1с = 13107200 байт.
Ответ: 13107200 байт.
Консольное приложение:
const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do begin
a[i]:=random(51);
write(a[i]:4)
end;
writeln;
k:=0;
writeln('номера чисел в наборе, которые меньше своего левого соседа:');
for i:=2 to n do
if a[i]<a[i-1] then begin write(i,' '); k:=k+1; end;
writeln;
writeln('k = ',k);
end.
Пример:
Массив A:
31 37 20 22 37 11 45 19 3 14
номера чисел в наборе, которые меньше своего левого соседа:
3 6 8 9
k = 4