Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Даю 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.