lescha-77766
?>

Сколько символов текста поместится на диске объёмом 800 мегабайтов?

Информатика

Ответы

gudachaa1480
800*1024*1024 = 838860800 символов
Банова_Елена431
Var a, b: integer;
var c: string;
begin
writeln('Введите 1 число.');
readln(a);
writeln('Введите 2 число.');
readln(b);
writeln('Знак операции.');
readln(c);
if c='*' then writeln(a*b);
if c='/' then writeln(a/b);
if c='-' then writeln(a-b);
if c='+' then writeln(a+b);
end.
2 ЗАДАЧА 
var a, b: real;
begin
writeln('Зарабаток Пети:');
readln(a);
writeln('Зарабаток Петрова:');
readln(b);
if a>b then writeln('Петя заработал больше Петрова.')
else if a=b then writeln('Петров и Петя заработали одинаково.')
else
writeln('Петров заработал больше Пети.');
writeln('Среднее: ', (a+b)/2);
end.
Kolosove5465

const

   handsfree = false;

   nmax = 10;

   random_min = -50;

   random_max = 50;

var

   a: array[0..nmax] of real;

   i, n: integer;

   sum, x: real;

begin

   {ввод массива}

   n := nmax;

   if handsfree then begin

       for i := 0 to n do

       begin

           a[i] := random(random_max - random_min) + random_min;

           write(a[i], ' ');

       end

   end

   else begin

       for i := 0 to n do

           readln(a[i]);

   end;

   writeln();

   

   {подсчет суммы}

   write('x = ');

   readln(x);

   

   sum := a[n];

   for i := n - 1 downto 0 do

       sum := sum * x + a[i];

   writeln('S = ', sqrt(sum));

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Сколько символов текста поместится на диске объёмом 800 мегабайтов?
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

ovalenceva77
maxborod
Волков1968
krisrespect
joini09
kirillreznikov
Fedorova_79166180822
layna1241383
alfaantonk
a96849926288
Kuznetsova702
Postnikova-StreltsovaKyulbyakova
Шиловский126
s-shulga
alexsan-0837