дано целое число. Если оно является положительным, топибавить к нему 1; ву противном слуае не изменять его. Вывести полученное число. Напсиать программу
5-9 класс
|
в паскаль, сама не могу, помогите, пожалуйста))
program ex1;
var x:integer;
begin
read(x);
if x>0 then x:=x+1 ;
writeln(x);
end.
Другие вопросы из категории
перевертыш не нужно!
секунду. Определите размер файла (в Кбайт), который можно передать за то же время через
другое соединение со скоростью 2048 бит в секунду.
В ответе укажите одно число – размер файла в Кбайт. Единицы измерения писать не нужно
Читайте также
a,b,c,d.Выяснить произведение этих чисел больше 300? 3)Дано целое число ,если оно положительное,то прибавить к нему 1,а если отрицательное.то отнять от него 2.Вывести полученое число.
2.Дано целое число N.Написать программу ,заменяющую его нулём ,если больше или равно нулю,и увеличивающая его в 2 раза ,если число меньше нуля.
3 .Дано целые числа a и b .Написать программу , которая выводит сначала большее число ,затем меньшее.
4.Даны числа a,b,c.Написать программу ,выводящую их в возрастающем порядке.
ПЛИЗ ПОМОГИТЕ
Вывести полученное число
нулевым, *то* ""заменить *его* на 10. Вывести полученное *число*.
Срочнооо