Определение возраста

12.11.2015, 16:41. Показов 440. Ответов 0

Метки нет (Все метки)

Вводятся два значения
ввести текущ год-2015
введите дат. рождения - ...
вам в 1997 году было ... лет
вам в 1998 году было ... лет
и тд.
Нужно чтобы когда прописывал даты выходило сколько мне было каком-то году.

Pascal

var roj,tec,raz,i,b,c:integer;
god:string;
begin
write ('vvedite tecuchiyi god - ');
read(tec);
write ('vvedite god vashego rojdenia - ');
read(roj);
if tec>roj then
raz:=tec-roj
else
writeln ('Oshibka vvoda');
readln;
c:=raz mod 10;
if (c>=2) and (c<=4) then
god:='goda';
if (c=1) then
god:='god'
else
god:='let';
for i:=i+1 to raz do begin
b:=roj+i;
writeln ('Vam v ', b , ' bilo ' , i ,' ' ,god);
end;
end.

Что здесь не правильно? подскажите пожалуйста

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

12.11.2015, 16:41

Ответы с готовыми решениями:

Определение среднего возраста в классе
Здравствуйте всем. Что-то не получается составить программу. Дан список учеников класса (вводим...

Доработка программы по определению возраста
program Vozzrast; {$APPTYPE CONSOLE} uses SysUtils; var y, m, d, yy, mm, dd, god, month,...

Список лиц одного возраста
type Data=record Deni : 1..31; Mes : 1..12; God: integer; end; Celopvek =...

Вывести строку-описание указанного возраста
Дано целое число в диапазоне 20–69, определяющее возраст (в годах). Вывести строку-описание...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

12.11.2015, 16:41

Помогаю со студенческими работами здесь

Имеется группа из 13 человек разного возраста.
Имеется группа из 13 человек разного возраста. Определите средний возраст членов группы. Какой...

Определить, достиг ли пользователь 16-летнего возраста
Помогите решить простую задачу: Известна текущая дата.(задается с клв.)Пользователь вводит...

Вывести строку-описание указанного возраста
Линейная: Дано целое число в диапазоне 20-69, определяющее возраст (в годах). Вывести...

Вывести строку - словесное описание указанного возраста
дано целое число в диапозоне 20-69 определяющие возраст в годах. Вывести строку словесное описание...

Вывести строку — словесное описание указанного возраста
Дано целое число в диапазоне 20-69, определяющее возраст (в годах). Вывести строку - словесное...

Вывести список учащихся призывного возраста и подсчитать их количество
Помогите решить две задачи. 15. Составить список учебной группы, включающей 20 человек. Для...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх