Составление мини-программы Опции

[XIII06]

Выручайте бедного студента
Задание:

Составить программу для определения подходящего возраста кандидатуры для вступления в брак, используя следующее соображение:
1. возраст девушки равен половине возраста мужчины плюс 7,
2. возраст мужчины определяется как удвоенный возраст девушки минус 14.
В начале выполнения программы на экране должен появиться вопрос: МУЖЧИНА ИЛИ ЖЕНЩИНА? ВВЕДИТЕ 1 ИЛИ 2. В зависимости от ответа выводятся соответствующие рекомендации.

Надо файлик .pas и .exe Отчёт, думаю, как-то сам сделаю

Пример выполнения работы в архиве.

 example.rar ( 7.16 килобайт ) Кол-во скачиваний: 370

[Vinsent90]

program sex;
uses crt;
var p,m,d,q,c: real;
begin clrscr;
	writeln(' Mujik - 1, Devushka - 2 ');	readln(p);
  if p=1 then begin
    writeln('vvedite vozrast muj4ini'); readln(m);
if m>1 then begin
    d:=m/2+7; writeln('vozrast devushki = ',d:1:0);end;end;
  if p=2 then begin
    writeln('vvedite vozrast devushki'); readln(d);
if d>8 then begin
    m:=d*2-14; writeln('vozrast muj4ini = ',m:1:0);end;end;
readkey; clrscr;
end.

 sex.zip ( 12.95 килобайт ) Кол-во скачиваний: 348


Сообщение отредактировано: Vinsent90 - 21.06.2008 8:36

[-XIII06-]

program sex;
uses crt;
var p,m,d,q,c: real;
begin clrscr;
	writeln(' Mujik - 1, Devushka - 2 ');	readln(p);
  if p=1 then begin
    writeln('vvedite vozrast muj4ini'); readln(m);
if m>1 then begin
    d:=m/2+7; writeln('vozrast devushki = ',d:1:0);end;end;
  if p=2 then begin
    writeln('vvedite vozrast devushki'); readln(d);
if d>8 then begin
    m:=d*2-14; writeln('vozrast muj4ini = ',m:1:0);end;end;
readkey; clrscr;
end.

 sex.zip ( 12.95 килобайт ) Кол-во скачиваний: 348

Отлично! То что надо! Спасибо большое!