program z1;
var a:integer;
begin
write('a = ');
readln(a);
if a > 0 then a:=a*2
else a:=a*3;
writeln('a = ',a)
end.
Объяснение:
Вводим число
Проверяем условие
Выполняем действие (в зависимости от условия)
Выводим число
Поделитесь своими знаниями, ответьте на вопрос:
:')Дано целое число. Если оно является положительным, то удвоить его; в противном случае утроить. Вывести полученное число.
program z1;
var a:integer;
begin
write('a = ');
readln(a);
if a > 0 then a:=a*2
else a:=a*3;
writeln('a = ',a)
end.
Объяснение:
Вводим число
Проверяем условие
Выполняем действие (в зависимости от условия)
Выводим число