Паскаль!!!

[Pein95]

Вадим Мошев, ну знаете значения слова Помогите немного иное от того, чего хотят здесь...Ничего против не имею но я думаю что человеку лучше дать удочку чем дать рыбу чтоб она покушала только рас.

[Диман56]

Вот верная(вроде) версия:

Program pr1;
 var a,d:integer;
 BEGIN
 writeln('Введите а:');
 readln(a);
 d:=a mod 10;
 IF (d=1) and (not (a=11) and not (a=111))
 THEN writeln('Возраст ',a,' год')
 ELSE
 IF (d>=2) and (d<=4) and not ((a>=11) and (a<=20)) and not ((a>=111) and (a<=120))
 THEN writeln('Возраст ',a,' года')
 ELSE
 IF (d>=5) and (d<=9) or (d=0) or ((a>=11) and (a<=20)) or ((a>=111) and (a<=120))
 THEN writeln('Возраст ',a,' лет')
 ELSE;
 END.

[Диман56]

Верная версия выше.

[Вадим Мошев]

Сообщение от Pein95

Вадим Мошев, ну знаете значения слова Помогите немного иное от того, чего хотят здесь...Ничего против не имею но я думаю что человеку лучше дать удочку чем дать рыбу чтоб она покушала только рас.

Ну, слово "помогите" как раз именно в том значении, о котором вы говорите, используется в этих разделах чуть реже, чем всегда.

Ну, ладно, тут хоть есть такие слова как "помогите" и "пожалуйста", но мне (и не только мне) доводилось видеть темы, где авторы кидают задание (текст задания) и уходят. Вот это действительно удручает.

[Анастасия12]

Мальчики?
А вы в матиметике так же хорошо разбираетесь, так же как и в информатики?м?

[Pein95]

Вадим Мошев, мне тож приходилось видеть такие темы) На такие темы я вопше не обращаю внимание)

[Анастасия12]

Блин вы куда пропали-то?

[Диман56]

Ну да)) разбираюсь)

[Анастасия12]

задаччу небольшую решить поможешь?

[Вадим Мошев]

Ну, вообще говоря, одна тема - один вопрос.
Наверное, для этого вам лучше создать новую тему.

Сообщение от Pein95

Вадим Мошев, мне тож приходилось видеть такие темы) На такие темы я вопше не обращаю внимание)

Может, имеет смысл предлагать платную помощь?
Я лично так делаю. Вдруг, повезёт. (только мне повезло лишь однажды, но там заказчик попался идеальный во всех отношениях).