Ребят задача на языке Pascal...Дано целое число, если оно двузначное, то умножить на 2, в противном случае вычесть 10.
Ребят задача на языке Pascal...
Дано целое число, если оно двузначное, то умножить на 2, в противном случае вычесть 10.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы