Question

Помогите пожалуйста составить похожую программу 35 баллов
Срочноооооо!!!! ​

Answer 1

Ответ:

program idetwo;

var a, b,c : integer;

begin

read(a);

if a>=10 then c:=1

else c:=2;

case c of

1:b:=sqr(a);

2:b:=10-a;

end;

writeln(b);

end.

Объяснение: