Даны числа: a и b. Если a > b, то уменьшить его в 2 раза, иначе увеличить ** 3.

Question

Даны числа: a и b. Если a > b, то уменьшить его в 2 раза, иначе увеличить на 3.

Answer 1

Program zadasha;
var a,b,c,d: real;
begin
writeln ('vvedite chislo a');
readln(a);
writeln('vvedite chislo b');
readln(b);
if a>b then c:=a/2 
writeln('poluchennoe chislo a: ',c) else d:=a*3 writeln('poluchennoe chislo a',d);
end.

Comments

Program zadasha;
var a,b,c,d: real;
begin
writeln ('vvedite chislo a');
readln(a);
writeln('vvedite chislo b');
readln(b);
if a>b then
begin
c:=a/2;
write('poluchennoe chislo a: ',c)
end
else
begin
d:=a*3;
write('poluchennoe chislo a: ',d);
end;
end.

---

ВОТ ЭТО ПРАВИЛЬНО