Var
b:integer;
begin
readln(b);
case b of
0:
writeln('Нуль');
1:
writeln('Один');
2:
writeln('Два');
3:
writeln('Три');
4:
writeln('Четыре');
5:
writeln('Пять');
6:
writeln('Шесть');
7:
writeln('Семь');
8:
writeln('Восемь');
9:
writeln('Девять');
end;
<span>end.</span>
<span>begin
writeln(sqrt(sqr(arctan(sin(3.15/6.1)))+53.7));</span>end<span>.
Результат:
</span><span> 7.342366377041116e+00</span>
Насколько была понятна запись
y= 15x+a; если x>=10; a<=-3;
у = x^(2)+ корень из а; если х<=9;а>5;
program zadacha;varx,y,a: real;
beginwriteln('vvedite x,a');readln(x,a);if (x>=10) and (a<=-3) then y:=15*x+a;if (x<=9) and (a>5) then y:=sqr(x)+sqrt(a);writeln(y);end.
Если стакан пуст значение 0, полон - 1
таким образом передпем информацию через двоичный код(1001001001)