Выручайте бедного студента
Задание:
Составить программу для определения подходящего возраста кандидатуры для вступления в брак, используя следующее соображение:
1. возраст девушки равен половине возраста мужчины плюс 7,
2. возраст мужчины определяется как удвоенный возраст девушки минус 14.
В начале выполнения программы на экране должен появиться вопрос: МУЖЧИНА ИЛИ ЖЕНЩИНА? ВВЕДИТЕ 1 ИЛИ 2. В зависимости от ответа выводятся соответствующие рекомендации.
Надо файлик .pas и .exe Отчёт, думаю, как-то сам сделаю
Пример выполнения работы в архиве.
example.rar ( 7.16 килобайт )
Кол-во скачиваний: 416
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.
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.