Задачи паскаль, помогите пожалуйста кто. 1, Напишите программу, реализующую следующие вычисления. Дан номер месяца — целое число в диапазоне 1–12, введенное с клавиатуры (1 — январь, 2 — февраль и т. д.). Вывести название соотв...
Задачи паскаль, помогите пожалуйста кто. 1, Напишите программу, реализующую следующие вычисления. Дан номер месяца — целое число в диапазоне 1–12, введенное с клавиатуры (1 — январь, 2 — февраль и т. д.). Вывести название соответствующего времени года («зима», «весна», «лето», «осень»). 2, Напишите программу, реализующую следующие вычисления. Дана матрица размера M x N (числа вводятся с клавиатуры). Для каждого столбца матрицы найти произведение его элементов. Полученные значения вывести в текстовый файл. 3, Напишите программу с использованием функции CircleS(R) вещественного типа, находящей площадь круга радиуса R (R — вещественное). С помощью этой функции найти площади трех кругов с данными радиусами. Площадь круга радиуса R вычисляется по формуле S = πR2. 4, Напишите программу, реализующую следующие вычисления. Дано целое число N (1≤N≤26), введенное с клавиатуры. Вывести N первых прописных (то есть заглавных) букв латинского алфавита.
Гость
Ответ(ы) на вопрос:
Гость1. var n: integer; begin repeat writeln('Введите номер месяца [1..12]'); readln(n); until n in [1..12]; case n of 1: writeln('January'); 2: writeln('February'); 3: writeln('March'); 4: writeln('April'); 5: writeln('May'); 6: writeln('June'); 7: writeln('July'); 8: writeln('August'); 9: writeln('September'); 10: writeln('October'); 11: writeln('November'); 12: writeln('December'); end; end.
Не нашли ответ?
Похожие вопросы