Submitted by Ilia_Sem on Sat, 10/23/2021 - 16:25
program training;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };
begin
i := for 35 to 64 do
writenl(i)
readln('')
end.
Submitted by Ilia_Sem on Thu, 10/21/2021 - 20:29
program training;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };
begin;
b := readln('напишите 1-ое число');
a := readln('напишите 2-ое число');
if (a > b) then;
begin;
writeln(a + b);
writeln(a - b);
if((a + b) > 25) then;
begin;
writeln('a');
writeln('b');
end;
end;
end.
Submitted by boris68 on Tue, 08/17/2021 - 12:29
Преобразование двоичного числа в десятичное число очень просто, если учесть, что компьютеры используют двоичную систему с основанием 2. Размещение каждой двоичной цифры определяет ее десятичное значение. Для 6-разрядного (6-ти битного) двоичного числа значения рассчитываются следующим образом: