ПОМОГИТЕЕЕ! 59 пунктов и лучшее решение будет,если будут пояснения
№11. В зависимости от введённого пользователем возраста (от 1 до 99 лет)
вывести сообщение о том. сколько пользователю лет. Предусмотреть
ситуацию, что может быть:
«Тебе 7 лет». «Тебе 2 года». «Тебе 23 года». «Тебе 1 год»
для любого числа.
№12. Пользователь вводит число и месяц не високосного года. Вывести дату
следующего дня.
Например:
Дано: 1 января. Вывод: 2 января
Дано: 28 февраля. Вывод: 1 марта
Дано: 31 декабря. Вывод: 1 января
№13. Даны год. месяц и число рождения двух человек. Определить, кто из
них старше.
Примечание;
Предусмотреть ситуации:
1. Люди родились в разные года
2. Люди родились в один год. но разные месяцы
3. Люди родились в один год. разные месяцы, но разные дни.
4. Люди родились в один год. месяц и день.
ЖЕЛАТЕЛЬНО С ПОЯСНЕНИЯМИ,ЧТО К ЧЕМУ

1

Ответы и объяснения

Лучший Ответ!
2013-03-02T22:03:20+00:00

1)

 

var
a: integer;

begin
writeln('Сколько вам лет?');
readln(a);
if a mod 10 = 1 then writeln('Вам ', a, ' год');
if a > 20 then //Если наш возраст, который больше 20, оканчивается на 2,3,4 то нам пишут "года")
if (a mod 10 = 2) or (a mod 10 = 3) or (a mod 10 = 4) then writeln('Вам ', a, ' года');
if a < 10 then //Если наш возраст, который меньше 10, оканчивается на 2,3,4 то нам пишут "года")
if (a mod 10 = 2) or (a mod 10 = 3) or (a mod 10 = 4) then writeln('Вам ', a, ' года');
if a > 4 then //Если нам от 5 до 19 лет, то нам пишут "лет")
if a < 20 then writeln('Вам ', a, ' лет');
if a > 20 then //Если наш возраст, который больше =20, оканчивается на 0,5,6,7,8,9 то нам пишут "лет")
if (a mod 10 = 0) or (a mod 10 = 5) or (a mod 10 = 6) or (a mod 10 = 7) or (a mod 10 = 8) or (a mod 10 = 9)
then writeln('Вам ', a, ' лет');
end.

 

2)

 

var
a: integer;
d: string;

begin
write('Введите сегодняшнее число '); readln(a);
write('Введите название месяца в именительном падеже '); readln(d);

if d = 'январь' then if a = 31 then writeln('Завтра будет 1 февраля') else writeln('Завтра будет ', a + 1, ' января'); //январь
if d = 'февраль' then if a = 28 then writeln('Завтра будет 1 марта') else writeln('Завтра будет ', a + 1, ' февраля'); //февраль
if d = 'март' then if a = 31 then writeln('Завтра будет 1 апреля') else writeln('Завтра будет ', a + 1, ' марта'); //март
if d = 'апрель' then if a = 30 then writeln('Завтра будет 1 мая') else writeln('Завтра будет ', a + 1, ' апреля'); //апрель
if d = 'май' then if a = 31 then writeln('Завтра будет 1 июня') else writeln('Завтра будет ', a + 1, ' мая'); //май
if d = 'июнь' then if a = 30 then writeln('Завтра будет 1 июля') else writeln('Завтра будет ', a + 1, ' июня'); //июнь
if d = 'июль' then if a = 31 then writeln('Завтра будет 1 августа') else writeln('Завтра будет ', a + 1, ' июля'); //июль
if d = 'август' then if a = 31 then writeln('Завтра будет 1 сентября') else writeln('Завтра будет ', a + 1, ' августа'); //август
if d = 'сентябрь' then if a = 30 then writeln('Завтра будет 1 октября') else writeln('Завтра будет ', a + 1, ' сентября'); //сентябрь
if d = 'октябрь' then if a = 31 then writeln('Завтра будет 1 ноября') else writeln('Завтра будет ', a + 1, ' октября'); //октябрь
if d = 'ноябрь' then if a = 30 then writeln('Завтра будет 1 декабря') else writeln('Завтра будет ', a + 1, ' ноября'); //ноябрь
if d = 'декабрь' then if a = 31 then writeln('Завтра будет 1 января') else writeln('Завтра будет ', a + 1, ' декабря'); //декабрь
end.

 

3)

 

var
a,b,c,x,y,z:integer;

begin
writeln ('Введите число, месяц и год рождения певрого человека');
write ('Число - ');readln(a);
write ('Месяц - ');readln(b);
write ('Год - ');readln(c);
writeln ('Введите число, месяц и год рождения второго человека');
write ('Число - ');readln(x);
write ('Месяц - ');readln(y);
write ('Год - ');readln(z);
if c>z then writeln ('Второй человек старше');//проверка одного условия
if c=z then//проверка 2х условий
if b>y then writeln ('Второй человек старше');//
if c=z then//проверка 3х условий
if b=y then //
if a>x then writeln ('Второй человек старше');// проверка для второго человека окончена

if c<z then writeln ('Первый человек старше');//проверка одного условия
if c=z then//проверка 2х условий
if b<y then writeln ('Первый человек старше');//
if c=z then//проверка 3х условий
if b=y then //
if a<x then writeln ('Первый человек старше');//

if c=z then//проверка на равенство возрастов
if b=y then
if a=x then writeln('Люди имеют одинаковый возраст');
end.