1.дано целое число n.написать программу ,увеличивающую - вопрос №186611513 от 3nashka 04.10.2021 02:36

Question

Информатика: 1.дано целое число n.написать программу ,увеличивающую число в 3 раза ,если оно больше нуля 2.дано целое число n.написать программу ,заменяющую его нулём ,если больше или равно нулю,и увеличивающая его в 2 раза ,если число меньше нуля. 3 .дано целые числа a и b .написать программу , которая выводит сначала большее число ,затем меньшее. 4.даны числа a,b,c.написать программу ,выводящую их в возрастающем порядке.

3nashka · Answer

Я напишу часть кода.инициальзация очевидна
1:
readln(n);
if n >3 then n:= n*3;
writeln(n);
2:
readln(n);
if n < 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 и с,если возникнут трудности код выложу