1101 в двоичной, 13 в десятичной, если я тебя правильно понял:)
Program zadacha;
const pi=3.14;
var r,C,s: real;
Begin
r:=5.4;
C:=2*pi*r;
S:=pi*r*r;
writeln('c=',c);
writeln('s=',s);
end.
Ответ:
Исходник ниже
Объяснение:
program task;
var
x, sum: Integer;
begin
sum := 0;
while True do
begin
read(x);
if x = 0 then break;
if (x mod 3 = 0) and (x mod 10 = 4)
then sum := sum + x;
end;
writeln(sum);
end.