ответ:60
var b: integer;
a, c: real;
begin
a:=50;
b:=20;
a:=a-b/2;
if a>b then
c:=a+b
else
c:=b-a;
writeln(c);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Дан фрагмент алгоритма: а:=50; b:=20; a:=a-b/2; if a>b then c:=a+b else c:=b-a; создайте программу. определите, какое значение примет переменная с?
ответ:60
var b: integer;
a, c: real;
begin
a:=50;
b:=20;
a:=a-b/2;
if a>b then
c:=a+b
else
c:=b-a;
writeln(c);
end.