Ребят задача на языке Pascal ...

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

Question

Информатика

Геня

7 ноября, 01:35

Ребят задача на языке Pascal ...

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

+3

Ответы (1)

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

Петринка · Answer 1

Program pr;

uses crt;

Var a;

Begin

Writeln ('Введите число') ;

readln (a) ;

if (a>9) and (a<100)

then a:=a*2

else a:=a-10;

Writeln (a) ;

readln;

end.

Ребят задача на языке Pascal ...Дано целое число, если оно двузначное, то умножить на 2, в противном случае вычесть 10.

Ребят задача на языке Pascal ...

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