Дано число (A), если оно однозначное, То умножить его на 3, если трехзначное разделить на 3

Question

Информатика

Вавуся

12 августа, 00:11

Дано число (A), если оно однозначное, То умножить его на 3, если трехзначное разделить на 3

+4

Ответы (1)

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

Орест · Answer 1

Var

a: integer;

b: double;

begin

readln (a) ;

b : = a;

if (a mod 10 = a) then

b : = a * 3;

if (a div 100 0) and (a div 1000 = 0) then

b : = a / 3;

writeln (b) ;

end.