Дано целое число .Если оно является положительным,то умножить его на 3;в противном случае не изменять его.Вывести полученное число.
Дано целое число .Если оно является положительным,то умножить его на 3;в противном случае не изменять его.Вывести полученное число.
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
var n:integer;
begin
clrscr;
write('n = '); readln(n);
if(n>=0) then n:=n*3;
writeln(n);
readln
end.
Не нашли ответ?
Похожие вопросы