Данное число может быть в системах счисления со следующими основаниями: 1, 2, 3 и 4.
<h3>PascalABC.NET 3.4.2, сборка 1826 от 07.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var x: int64;
Readln(x);
Format('{0:#0 000 00 0}', x).Println
end.
Sub car()
Dim s As Double
For i = 1 To 12
s = s + 4
Next i
MsgBox ("Скорость автомобиля через 12 секунд равна " + CStr(s) + " км/ч")
End Sub<span>
</span>
Var num, deg: integer;
res: real;
i: byte;
begin
write ('Число: ');
readln (num);
write ('Степень: ');
readln (deg);
res := 1;
i := 0;
while i < abs(deg) do begin
res *=num;
inc(i)
end;
if deg < 0 then
res := 1 / res;
writeln (res:10:5);
end.
Есть 3 высказывания
1-правда
0-лож
первое высказывания это "и" 1+0=1, 1+1=1, 0+0=0, 0+1=0.
второе высказывание это "или" 1+0=1, 1+1=1, 0+1=1.
третье высказывание это "не" 1=0, 0=1.