Предмет: Информатика,
автор: артурка2
увеличить число x на 10,если оно положительное,во всех остальных случаях уменьшить его на 10
Ответы
Автор ответа:
0
//Pascal
var
a: integer;
begin
readln(a);
if a > 0 then a := a + 10
else
a := a - 10;
writeln(a);
end.
var
a: integer;
begin
readln(a);
if a > 0 then a := a + 10
else
a := a - 10;
writeln(a);
end.
Похожие вопросы
Предмет: Биология,
автор: mariiiinka
Предмет: Кыргыз тили,
автор: erkinbekbejsaliev16
Предмет: Другие предметы,
автор: masturkaua
Предмет: Алгебра,
автор: Аноним