Регистрация
deneleslamov2
19.07.2020 19:11
Информатика
Есть ответ 👍

Написать 2 программы: 1. составить программу, которая по номеру дня в месяце печатает день недели. считаем, что 1–е число месяца – понедельник. 2. с клавиатуры вводится два целых числа, обозначающих возраст человека и его пол (1 – мужской, 2 –женский). составить программу, которая в зависимости от введенных данных определяет принадлежность человека к определенной группе: от 0 до 13 – мальчик (девочка); от 14 до 20 – юноша (девушка); от 21 до 70 – мужчина (женщина); более 70 – старец (старушка).программа в паскале авс.за хорошее решение еще 30

142
262
Посмотреть ответы 2

Ответы на вопрос:

olgaazov73
olgaazov73
4,7(32 оценок)

1 программа

var month: integer;

begin

write('введите число, обозначающее месяц: ');

read(month);

case month of

1: writeln ('январь');

2: writeln ('февраль');

3: writeln ('март');

4: writeln ('апрель');

5: writeln ('май');

6: writeln ('июнь');

7: writeln ('июль');

8: writeln ('август');

9: writeln ('сентябрь');

10: writeln ('октябрь');

11: writeln ('ноябрь');

12: writeln ('декабрь');

end;

end.

tatyana171283t
tatyana171283t
4,5(95 оценок)
Program n1; var a,b,c,p: real; begin readln(a,b,c); p: =(a+b+c)/2; write('s=',sqrt(p*(p-a)*(p-b)*(p-; end.

Популярно: Информатика