Незаходить в кабинет учетиля без разрешения 2проверить рабочие место 3 проверить влажные ли руки
Для начала нужно 4 гигабайта перевести в кбайты, будет
4×1024×1024=4'194'304кбайт
Теперь нам дано I - (Обьем флешки) 4'194'304кбайт и 1 учебник 350кбайт
Теперь, чтобы найти кол.учебников нужно (I÷емкость 1 учебника)
4'194'304÷350=11'983,725 теперь это число округлим получиться 11'983
Ответ:11'983 школьных учебников можно разместить на флешке,.
P.S: Знак (') я писал, чтобы легче было распознать число.
Uses crt;
var a,b:integer;
begin
writeln('введите первое число');
readln(a);
writeln('введите второе число');
readln(b);
if a>b then writeln(a-b,' первое число больше второго');
if a<b then writeln(b-a,' второе число больше первого');
if a=b then writeln('0 оба числа равны');
end.
Program psck;
vara,b: integer;p,s: real;
begin
read(a,b); //стороны треугольника s:=a*b/2; p:=a+b+sqrt(a*a+b*b); writeln('Периметр - ',p); write('Площадь - ',s); end.
var
i: Integer;
Af: array [1..10] of Integer;
begin
Af [1] := 1; // первый член ряда равен 1
Af [2] := 1; // второй член ряда равен 1
for i := 3 to 10 do begin // цикл, начинающийся с 3-го члена до заданного (десятого)
Af [i] := Af [i - 2] + Af [i - 1]; // каждый член ряда равен сумме двух предыдущих
end;
for i := 1 to 10 do begin // вывод на экран первых 10 членов ряда
Write (Af [i], ', ');
end;
end.
// ------ 2-й вариант (без использования массива) ---------
var
a, b, c, i: Integer;
begin
a := 1;
Write (a, ', ');
b := 1;
Write (b, ', ');
for i := 3 to 10 do begin
c := a + b;
Write (c, ', ');
a := b;
b := c;
end;
end.
