Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 01.03.2017 00:06
- Информатика
- remove_red_eye 11064
- thumb_up 31
Ответы и объяснения 1
Program n1;
var d:integer; a:real;
begin
writeln('Введите d ');
readln(d);
if d <= (-30) then
a:= d/10;
if d <20 then
a:= (-2)*d+1;
if d >20 then
a:= sqr(d-1);
writeln(a);
readln
end.
================================
program n2;
uses crt;
var pr:boolean;
begin
writeln('* Введите номер месяца *');
pr:=false;
writeln('Сделайте выбор четверти');
writeln('1. 1 четверть');
writeln('2. 2 четверть');
writeln('3. 3 четверть');
writeln('4. 4 четверть');
writeln('5. Выход');
repeat
case readkey of
'1':writeln('Сентябрь | Октябрь');
'2':writeln('Ноябрь | Декабрь');
'3':writeln('Январь | Февраль | Март');
'4':writeln('Апрель | Май ');
'5':pr:=true;
end;
until(pr);
writeln('Конец.');
readln
end.
- 03.03.2017 00:59
- thumb_up 28
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.