Через паскаль 1 ввести 3 числа,вывести наименьшее 2 ввести номер месяца ,вывести название месяца 3 ввести 5 чисел,вывести в порядке убывания

244

407

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

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

Денис228ннпп

Информатика

4,5(60 оценок)

program dz2; uses crt; var x: integer; begin write ('введите номер месяца'); read (x); if (x> =3) and (x< =5) then write ('весна'); if (x> =6) and (x< 8) then write ('лето'); if (x> =9) and (x< =11) then write ('осень'); if (x=12) or (x< =2) then write ('зима'); end.