Написать программу: Дано число, если оно делится на 8, увеличить его на 3, иначе уменьшить в 10 раз. Результат вывести на экран.

Question

Ермиония

8 ноября, 05:02

+4

Ответы (1)

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

Димаха · Answer 1

Program zadacha;

var a:integer;

begin

readln (a) ;

if a mod 8=0

then a:=a*8

else a:=a div 10;

writeln (a) ;

end.