Запишите командами языка программирования команду если значение переменной А меньше или равно 100, то значение А увеличивается в 10 раз, если больше 100 - уменьшается в 10 раз. На языке паскаль

Question

Доняша

19 февраля, 03:57

+1

Ответы (1)

Знаете ответ?

Галюша · Answer 1

Var a:real;

Begin

Write ('Число: ') ; readln (a) ;

if (a<=100) then a:=a*10

else a:=a/100;

Writeln (a) ;

End.