//Pascal
//Числа случайные в диапазоне [-10;10]
var
A: array [1..15] of integer;
i: byte;
mult: longint;
begin
mult := 1;
randomize; //В PascalABC.NET можно убрать
for i := 1 to 15 do
begin
A[i] := random(21)-10;
if i mod 2 = 0 then mult := mult * A[i];
write(A[i], ' ');
end;
writeln;
writeln('Произведение элементов на четных местах = ', mult);
readln;
end.
1) 1000/1024=0,97 кб 1000 байт < 1 кб
2)220/1024=0,214 Кб 1/2 кб = 512 кб 220 < 1/2
3)1 мб = 1024 кб 1 < 1500
4)8192/8/1024 = 1 кб 1=1
Вот держите )(на всякий s=42
For i = 1 To 9
For j = 1 To 9
s$=String(i*j)
if length(s$)=1 then s$=" "+s$ else if length(s$)=2 then s$=" "+s$
Print s$;
Next j
Print
Next i
End
Результат работы программы:
1 2 3 4 5 6 7 8 9
2 4 6 8 10 12 14 16 18
3 6 9 12 15 18 21 24 27
4 8 12 16 20 24 28 32 36
5 10 15 20 25 30 35 40 45
6 12 18 24 30 36 42 48 54
7 14 21 28 35 42 49 56 63
8 16 24 32 40 48 56 64 72
9 18 27 36 45 54 63 72 81
Замечание: таблица на самом деле ровная, это тут ширина пробела и ширина цифры различна, поэтому сдвиг.
Программы и блок схемы к ним на скринах, надеюсь всё понятно
PS-------------------------------------------------------------------------------------------
Блок схемы сделаны по устаревшему ГОСТу, но имеют место быть,
Abs - это обозначение модуля в Pascal.