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

1

Ответы и объяснения

2013-10-01T19:16:38+04:00
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.