Uses crt;
var a=array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(50);
if (a[i]mod5=0) there
a[i]:=a[i]*2;
else
a[i]:=a[i]/2;
for i:=1 to 10 do
writeln(a[i]);
end.
Var
n,a,k,i:integer;
begin;
k:=1;
readln(n);
for i:=1 to n do
begin;
readln(a);
if (a>8) and (a<15) then k:=k*a;
end;
writeln(k);
end.
1) var i,n: Integer;
begin
i:=0;
writeln('Введите число');
readln(n);
while i<>n do
begin
Inc(i);
writeln(i);
end;
end.
2) var i,n,x,count: Integer;
begin
writeln('Введите кол-во цифр');
readln(n);
for i:=1 to n do
begin
writeln('Введите ',i,' число');
readln(x);
Inc(count,x);
end;
writeln('Сумма чисел: ',count);
end.
Ну блин, легко же!
Будем предполагать, что приставки Мега и Гига в данном контексте не десятичные, а двоичные. Следовательно:
120 Гб = 122880 Мб.
122880/512 = 240
Ответ: в 240 раз ЖД больше ОЗУ.
Ответ: 3
Объяснение: 8 бит = 1 байт
Если размер предложения в байтах (!) оказался на 5 больше, то название нового животного вместе с запятой и пробелом - 5 байт, а без запятой и пробела - 5-1-1 байт = 3 байта, значит длина слова - 3 символа.