<em><u>Блок-схема во вложении.</u></em>
var
x,y,c:double;
begin
Write('x='); Read(x);
Write('y='); Read(y);
if x=y then c:=sqr(x+y)+sin(x)
else
if (x-y)=3 then c:=(x+y)*sqr(x+y)+cos(x)
else c:=x+y+tan(x);
Write('c=',c)
end.
<em><u>Тестовое решение:</u></em>
x=0.563
y=-1.514
c=-0.319863379954563
Program n_1;
var r, d:integer;
begin
r:=2; d:=r*2;
writeln('Диаметр круга равен ',d);
end.
Uses crt;
var k,l,s,u:integer;
begin
write ('k=');read (k);
s:=k/100;
l:=s*2;
u:=k+truck (l);
write (u);
end.
Если не превышает 10 символов, то только 4 и 8 символов подходит (2 и 3 бита соответственно).
1)8
2)78
3)32
Вроде бы так насчет 2 не уверен