Сколько нужно дисков cd(объем 700 мбайт) чтобы записать всю нижеперечисленную информацию: музыка-1600 мбайт, видео-4гбайт программы-8228 кбайт

1 гб = 1024 мбайт

1 мб = 1024 кбайт

4 гб ≈ 4000 мб

8228 кб ≈ 8,228 мб

8,228 + 4000 + 1600 = 5608,228

5608, 228 / 700 ≈ 8,01

ответ: понадобится 9 СD дисков.

Program p1;

var
  a, b, c, s: real;

begin
  Writeln('Вычислите S поверхности параллелепипеда.');
  Writeln('Введите исходные данные:');
  Write('Длина(см)? '); Readln(a);
  Write('Ширина(см)? '); Readln(b);
  Write('Высота(см)? '); Readln(c);
  s := 2 * (a * b + b * c + c * a);
  Writeln('Площадь поверхности: ', s, ' кв.см.')
end.

Тестовое решение:
Вычислите S поверхности параллелепипеда.
Введите исходные данные:
Длина(см)? 9
Ширина(см)? 7.5
Высота(см)? 5
Площадь поверхности: 300 кв.см.

program p2;
var
  ct,ck,s:real;
  kt,kk:integer;
begin
  Writeln('Вычисление стоимости покупки');
  Writeln('Введите исходные данные:');
  Write('Цена тетради(руб.)? '); Readln(ct);
  Write('Количество тетрадей? '); Readln(kt);
  Write('Цена карандашей(руб.)? '); Readln(ck);
  Write('Количество карандашей? '); Readln(kk);
  s:=ct*kt+ck*kk;
  Writeln('Стоимость покупки: ',s:0:2,' руб.')
end.

Тестовое решение:
Вычисление стоимости покупки
Введите исходные данные:
Цена тетради(руб.)? 2.75
Количество тетрадей? 5
Цена карандашей(руб.)? 0.85
Количество карандашей? 2
Стоимость покупки: 15.45 руб.

Program p1;

var
  a, b, c, s: real;

begin
  Writeln('Вычислите S поверхности параллелепипеда.');
  Writeln('Введите исходные данные:');
  Write('Длина(см)? '); Readln(a);
  Write('Ширина(см)? '); Readln(b);
  Write('Высота(см)? '); Readln(c);
  s := 2 * (a * b + b * c + c * a);
  Writeln('Площадь поверхности: ', s, ' кв.см.')
end.

Тестовое решение:
Вычислите S поверхности параллелепипеда.
Введите исходные данные:
Длина(см)? 9
Ширина(см)? 7.5
Высота(см)? 5
Площадь поверхности: 300 кв.см.

program p2;
var
  ct,ck,s:real;
  kt,kk:integer;
begin
  Writeln('Вычисление стоимости покупки');
  Writeln('Введите исходные данные:');
  Write('Цена тетради(руб.)? '); Readln(ct);
  Write('Количество тетрадей? '); Readln(kt);
  Write('Цена карандашей(руб.)? '); Readln(ck);
  Write('Количество карандашей? '); Readln(kk);
  s:=ct*kt+ck*kk;
  Writeln('Стоимость покупки: ',s:0:2,' руб.')
end.

Тестовое решение:
Вычисление стоимости покупки
Введите исходные данные:
Цена тетради(руб.)? 2.75
Количество тетрадей? 5
Цена карандашей(руб.)? 0.85
Количество карандашей? 2
Стоимость покупки: 15.45 руб.