// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var (a,b):=ReadReal2('Введите два числа:');
if a>b then Writeln('Первое число больше')
else
if b>a then Writeln('Второе число больше')
else Writeln('Числа равны')
end.

Пример
Введите два числа: 25 24.95
Первое число больше

0 0

4 года назад

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

Виды антивирусных программ

sssddd

Avast......................

0 0

4 года назад

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

СРОЧНО!!! ОЧЕНЬ СРОЧНООО!!! ПОЖАЛУЙСТА ПОМОГИТЕ СДЕЛАТЬ....Как это задание записать в турбо паскаль, какой код нужно написать...

Елена Крикуненко [24]

Var t,n:integer;
begin
n:=1;
t:=3;
writeln('t','n':6);
while t<25 do
begin
n:=n*2;
writeln(t,n:6);
t:=t+3;
end;
readln;
end.