КАК МОЖНО СКОРЕЕ. Вариант 1 Выберите из предложенных величин числовую величину.
-6,43 ЛОЖЬ ‘5.36’ ‘тишина’ 120
Переведите арифметические выражения из линейной записи в общепринятую.
а) a * b – c / (a + b) б) (a – b) / a * c в) a * b * c / (a * c)
Запишите на алгоритмическом языке.
а) б)
Изобразите в декартовой прямоугольной системе координат область, в которой и только в которой истинны следующие логические выражения:
а) (х>=–2) и (x<=3) и (y>=–1) и (y<=0)
Запишите логическое выражение, истинное при выполнении указанного условия и ложное в противном случае:
а) х принадлежит отрезку [0,2]
б) только одно из чисел x и y меньше 1.

program raf105;

var

 A: real;

 x: integer;

begin

 write('Введите число в битах: ');

 readln(A);

 writeln('1. Байт');

 writeln('2. Килобайт');

 writeln('3. Магабайт');

 writeln('4. Гигабайт');

 write('Введите номер единицы, в которую нужно перевести: ');

 readln(x);

 if x=1 then writeln(A/8,' байт')

   else if x=2 then writeln(A/8000,' кб.')

     else if x=3 then writeln(A/8000000,' мб.')

       else if x=4 then writeln(A/8000000000,' гб.')

         else writeln('Ошибка');

end.

PascalABC 3.4.2

1.
Var a,b,pr:integer;
Begin
pr:=1;   
write('Вводите числа, когда закончите - введите 0. '); readln(a);
while (a<>0) do  begin 
 if (a>0) and (a<10) then begin b:=b+1; pr:=pr*a; end; readln(a)  end;
Writeln('Чисел, больше 0 и меньше 10: ',b,' их произведение:',pr);end.

2.
Var a,b,c,i,sum,f:integer;
Begin
 Write('Введите 10 двузначных чисел: '); repeat readln(a); until(a>=10) and (a<100);
for i:=1 to 10 do 
  begin 
     repeat readln(a); until(a>=10) (a<100)
      b:=a mod 10;
      c:=a div 10;
       sum:=b+c;
        if (sum mod 2 = 0) then f:=f+1;
end;
Writeln('Кол-во цифр, удовлетворяющих условию: ',f);
end.

3.
Var a,b,c:integer;
Begin 
  write('Вводите целые положительные числа.');
repeat
   readln(a);
b:=b+a;
c:=c+1;
 until (b>100);
Writeln('Кол-во введёных чисел:',c,' их сумма:',b);
end.