35-6=29
29-20=9 любят только кино
15-9=6 любят и кино, и дискотеки
Var n,k : Integer;
Begin
k:=0;
Readln(n);
While n>0 do
Begin
n:=n div 10;
Inc(k);
end;
Writeln('Цфир: ',k);
end.
Зрительная, так как только её нельзя написать..
PascalABC.NET 3.2:
var
a, b: real;
begin
readln(a, b);
write(<u>(a + b)/2 + (a + b)</u>)
end.
<em>
Пример ввода:</em>
3 7
<em>Пример вывода:</em>
15
var
i, ans: longint;
begin
i := 10;
ans := 1;
while i < 100 do
begin
if (i mod 13 = 0) and (i mod 2 <> 0) then ans := ans * i;
inc(i);
end;
writeln(ans);
end.