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

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

Question

Информатика

Радосвета

12 марта, 12:06

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

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

+2

Ответы (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.