ввести число. если оно целое, то разделить его на 2, в противном случае умножить его на 10.

Question

Информатика

Кирилка

7 мая, 15:23

ввести число. если оно целое, то разделить его на 2, в противном случае умножить его на 10.

+5

Ответы (1)

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

Эраст · Answer 1

Задача будет выполняться при соблюдении условия. Необходимо вводить 2 числа. Это необходимо что бы определить, является ли число целым. (числа нужно вводить одинаковые.

var y, c:real;

a, b:integer;

begin

writeln ('Введите 2 одинаковых числа') ;

readln (a, b) ;

c:=a/b;

if (a>b) or (a
y:=c/2

else

y:=c*10;

writeln (y) ;

end.