Информатика "Программирование разветвляющихся алгоритмов"
1. Увеличить число X на 10, если оно положительное, во всех остальных случаях уменьшить на 10.
2. Увеличить число X на 5, если оно положительное.
Предмет:
ИнформатикаАвтор:
audicampbellvar x:integer;
Begin
read(x);
if x>0 then x:=x+10
else x:=x-10;
writeln(x);
read(x);
if x>0 then x:=x+5;
writeln(x);
End.
Автор:
chance8dt0Добавить свой ответ
Предмет:
ХимияАвтор:
rangersosaОтветов:
Смотреть
Информатика "Программирование разветвляющихся алгоритмов"
1. Написать программу, определяющую, является ли произвольное число X четным.
2. Написать программу, определяющую, является ли целое число T делителем целого числа X.
3. Для произвольного числа A написать программу, возводящую его в квадрат, если число отрицательное, извлекающую из A квадратный корень, если положительное, оставляющее A без изменения, если A=0
Предмет:
ИнформатикаАвтор:
peppergalvanОтветов:
Смотреть
Информатика "Программирование разветвляющихся алгоритмов"
1. Написать программу, определяющую, как соотносятся между собой два произвольных числа A и B.
2. Фирма осуществляет набор сотрудников. Условия приема требуют не менее 3 лет рабочего стажа и возраст не более 35 лет. Написать программу, проверяющую, удовлетворяет ли кандидат этим требованиям.
Предмет:
ИнформатикаАвтор:
harvey92Ответов:
Смотреть