1010101+1010 выполнить действия и переводите результат в десятичную систему счисления

Question

Информатика: 1010101+1010 выполнить действия и переводите результат в десятичную систему счисления​

FoxyPixel · Accepted Answer

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

procedure Love(n:integer);
begin
Writeln(n*('Я люблю ПАСКАЛЬ'+NewLine))
end;

begin
Love(ReadInteger('n='))
end.

Пример
n= 5
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ

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

procedure LinEqu(a,b:real);
begin
if a=0 then
if b=0 then Writeln('Решений бесконечно много')
else Writeln('решений нет')
else Writeln('x=',-b/a)
end;

begin
var a,b:real;
Write('Введите а и b: '); Read(a,b);
LinEqu(a,b)
end.

Пример
Введите а и b: 18.45 -12
x=0.650406504065041

1010101+1010 выполнить действия и переводите результат в десятичную систему счисления​

MOGZ ответил