Program prog;
Uses crt;

var a,b, tmp: real;

begin
clrscr;
write('A = ');
readln(a);
write('B = ');
readln(b);
writeln;
if (a<b) then
begin
tmp:=a;
a:=b;
b:=tmp;
end;
writeln ('A = ', a);
writeln ('B = ', b);
end.

0 0

4 года назад

Создатель языка pascala) Евгений Касперскийб) Никлаус Виртв) Андрей Ершовг) Сергей Брин

Weapone88 [3]

Создатель языка paskal:
б) Никлаус Вирт

0 0

4 года назад

Объём информационного сообщения составляет 8192 бита. Выразить его в Кб

Ярик228

Делим на 2^13. Получаем 1 Кб

0 0

4 года назад

Прочитать ещё 2 ответа

ИНФА ВНИЗУ. ПАААААААААААААААААААСКАЛЬ

Sveta05

Var
    n, s: integer;

begin
    readln(n);
    n := abs(n);

    while n > 0 do
    begin
        s := s + n mod 10;
        n := n div 10;
    end;

    writeln(s);
end.

0 0

4 года назад