Даю 25 баллов за лучший ответ !!!

Даю 25 баллов за лучший ответ !!!
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы