НУЖНО СДЕЛАТЬ В ПРОГРАММЕ ПАСКАЛЬ.ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Задача № 2:
Ввести 2 числа. Если их сумма больше 50, прибавить к первому 10, иначе вычесть из второго 20. Вывести на экран оба числа.
Задача № 3:
Ввести число. Если оно четное, вычесть из него 4, если нечетное - умножить на 2.
Ответы
Ответ дал:
1
Ответ:
Задача №1
program ex1;
var x, y:integer;
begin
writeln ('Введите x, y');
readln(x, y);
if x + y > 50 then x:=x+10 else y:=y-20;
write(x, y);
end.
Задача №2
program ex2;
var x:integer;
begin
writeln('Введите число');
readln(x);
if x mod 2 = 0 then x:=x-4 else x:=x*2;
writeln(x);
end.
Объяснение:
Вас заинтересует
3 месяца назад
4 месяца назад
1 год назад
7 лет назад