<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
begin
Range(ReadInteger('a='),ReadInteger('b=')).Println
end.
</span>
Var x: integer;
begin
writeln ('Введите температуру воздуха');
readln (x);
if x<0 then writeln ('Дождь')
else writeln ('Снег");
end.
3 * 1024 = 3072 байт / 1536 = 2
40 мс * 2 = 80 мс
Рекордер — устройство, предназначенное для записи входящего сигнала на физический носитель.
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadReal2('Введите два числа:');
if a>b then Writeln('Первое число больше')
else
if b>a then Writeln('Второе число больше')
else Writeln('Числа равны')
end.
<u>Пример</u>
Введите два числа: 25 24.95
Первое число больше