Program dialog;
var
a: integer;
begin
writeln('Привет! Какая у вас температура? ');
readln(a);
if a>37 then
writeln('Лечитесь дома')
else if a<36 then
writeln('Седите дома')
else
writeln('Идите в шоклу');
end.
A\/Ā=1, поэтому =1\/В/\С=1
6 бит. конечно же . Log_2 N=6.
В первом варианте приходится закрашивать лишь мелкие треугольники
во втором же заливается все кроме них
Var a,s:integer;
begin
readln(a);
while (a<>0) do begin
s+=a mod 10;
a:=a div 10;
end;
writeln(s);
<span>end.</span>