Program calculator;
Var a,b: real;
Begin
Write('Первое число:');
readln (a);
Write('Второе число:');
readln (b);
Write('Результат: ',a+b);
End.
Делить байты на 1024. в 1 килобайте 1024 байт
Function to_base(n: integer; base: integer): integer;
begin
if n = 0 then
to_base := 0
else
to_base := (n mod base) + 10 * to_base(n div base, base);
end;
var
n: integer;
begin
readln(n);
writeln(to_base(n, 3));
writeln(to_base(n, 5));
<span>end.</span>
2, можно взвесить по 2 монеты и выбрать из них там где есть и фальшивая, а потом взвесить их 2 отдельно
Var d:array[1..10] of integer;
s,i:integer;
Begin
s:=1;
For i:=1 to 10 do
begin
readln(d[i]);
If d[i]<>0
Then S:=S*d[i];
end;
Writeln(S);
end.