Предмет: Информатика,
автор: spycomp
Две задачи
1) Дано 4 числа. Найти произведение этих чисел, уменьшенное в 2 раза.
2) Увеличить число х на 1, если оно положительное, в противном случаи уменьшить его на 1
Ответы
Автор ответа:
0
1)
var
a,b,c,d:integer;
begin
readln(a,b,c,d);
writeln(a*b*c*d/2);
end.
2)
var
x:integer;
begin
readln(x);
if x>0 then
x:=x+1
else
x:=x-1;
writeln(x);
end.
var
a,b,c,d:integer;
begin
readln(a,b,c,d);
writeln(a*b*c*d/2);
end.
2)
var
x:integer;
begin
readln(x);
if x>0 then
x:=x+1
else
x:=x-1;
writeln(x);
end.
Похожие вопросы
Предмет: Химия,
автор: kglskdjgksdgj
Предмет: Українська література,
автор: sofiagutenyuk
Предмет: История,
автор: Аноним
Предмет: История,
автор: Аноним