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

Question

Галя

25 апреля, 22:03

+4

Ответы (1)

Знаете ответ на вопрос?

Гаша · Answer 1

Var a:real;

Begin

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

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

else a:=a/100;

Writeln (a) ;

End.