На скольких дискетах емкостью 1, 44 мб можно разместить содержимое жесткого диска объемом 0, 8гб?

!

0.8гб= 800 мб

чтобы найти количество дискет, на которых можно разместить содержимое жесткого диска объемом 0.8гб, мы должны 800/1.44 ≈ 571дискета.

ответ: ≈ 571 дискета

Пойдет?

1)

// этажей<6 лифта нет, до 9 этажей 1 лифт, более 9 2 лифта

//По известным количеством этажей определить, сколько лифтов необходимо установить в доме.

program v1;

var n,m:integer;

  begin

    writeln('Введите количество этажей'); readln(n);

    m:=n;

    if m<6 then writeln('Лифта нет');

    if (m>=6) and (m<=9) then writeln('1 лифт');

    if m>=10 then writeln('2 лифта');

  end.

2)

//рейсы 107, 201, 32. Самолеты этих рейсов находятся на стоянках с номерами 3, 4, 5 соответственно.  

//По известному номеру рейса определить, на какую стоянку необходимо отправить багаж пассажиров.

program v1;

var n,m:integer;

 begin

   writeln('Введите номер рейса'); readln(n);

   m:=n;

   if m=107 then writeln('Стоянка с номером 3');

   if m=201 then writeln('Стоянка с номером 4');

   if m=32 then writeln('Стоянка с номером 5');

   if (m<>107) and (m<>201) and (m<>32) then writeln('Таких рейсов нет');

 end.

1. var x: integer; y: real; begin write('введите значение аргумента "x" : '); readln(x); y: =3*cos((5*x)); writeln('значение функции "y" = ',y); readln; end.2.varx,b: integer; beginwrite('введите количество молока, полученного за день, л : '); readln(x); write('введите количество дней : '); readln(b); writeln('количество молока, полученного за заданный промежуток времени = ',x*b); readln; end.   3.vara,b,c: integer; beginwrite('введите двузначное число: '); readln(a); b: =a div 10; c: =a mod 10; writeln(b,#10,c); end.4.varb: integer; a: longint; beginwrite('введите целое число: '); readln(a);   b: =a div 100 mod 100; writeln(b); readln; end.5.  vara,b: integer; beginwrite('введите числа : '); readln(a,b); if a and b mod 2=0 then  writeln(a+b); if a and b mod 2< > 0 then  writeln(a*b); readln; end. {про последнее "иначе", увеличьте все числа в пять раз и выведите результаты" не оба чётные - сумма, если оба - нечётные - то произведение. а если иначе, то число должно быть равно нулю. смысл увеличивать его в пять раз? )}