1.Дано целое число N.Написать программку ,увеличивающую число в 3 раза ,если

1.Дано целое число N.Написать программку ,увеличивающую число в 3 раза ,если оно больше нуля
2.Дано целое число N.Написать программку ,заменяющую его нулём ,если больше или одинаково нулю,и увеличивающая его в 2 раза ,если число меньше нуля.
3 .Дано целые числа a и b .Написать программку , которая выводит поначалу большее число ,затем наименьшее.
4.Даны числа a,b,c.Написать программку ,выводящую их в возрастающем порядке.
ПЛИЗ ПОМОГИТЕ

Задать свой вопрос
1 ответ
Я напишу часть кода.инициальзация явна
1:
readln(n);
if n gt;3 then n:= n*3;
writeln(n);
2:
readln(n);
if n lt; 0 then n:= n*2
else n:=0;
writeln(n);
3:
readln(a,b);
if a c:=a;
a:=b;
b:=c;
end;
writeln(a,b);
4:
подобно с 3только сравниваеье снаяала а и b, а и с,затем b и с,если возникнут трудности код выложу
Злата Чекрыженкова
Спасибо помог
Уденцев Денис
спасибо
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт