Вопрос по информатике:
ПАСКАЛЬ!!!
1. Вывести на экран числа 100, 96, 92, ..до последнего положительного включительно.
2. Дано число. Если оно от 2 до 5 включительно, то увеличить его на 10. Если оно от 7 до 40, то уменьшить на 100. Если оно не более 0 или более 3000, то увеличить в 3 раза (то есть умножить на 3). Иначе занулить это число.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 05.08.2015 10:29
- Информатика
- remove_red_eye 8693
- thumb_up 31
Ответы и объяснения 1
Var i : Byte;
Begin
For i:=25 downto 1 do Writeln(i*4);
end.
Var A : Integer;
Begin
Readln(A);
If (A3000) then A:=A*3 else
If (A>=7) and (A<=40) then A:=A-100 else
If (A>=2) and (A<=5) then A:=A+10 else A:=0;
Writeln(A);
end.
- 06.08.2015 19:09
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.