Паскаль, кто. 1, напишите программу, реализующую следующие вычисления. дан номер месяца — целое число в диапазоне 1–12, введенное с клавиатуры (1 — январь, 2 — февраль и т. вывести название соответствующего времени года («зима», «весна», «лето», «осень»). 2, напишите программу, реализующую следующие вычисления. дана матрица размера m x n (числа вводятся с клавиатуры). для каждого столбца матрицы найти произведение его элементов. полученные значения вывести в текстовый файл. 3, напишите программу с использованием функции circles(r) вещественного типа, находящей площадь круга радиуса r (r — вещественное). с этой функции найти площади трех кругов с данными радиусами. площадь круга радиуса r вычисляется по формуле s = πr2. 4, напишите программу, реализующую следующие вычисления. дано целое число n (1≤n≤26), введенное с клавиатуры. вывести n первых прописных (то есть заглавных) букв латинского алфавита.

Ответы

Hacтяя 26.05.2020 03:14

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.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

Veid 22.08.2019 00:30

cat0000000 22.08.2019 00:30

alikrufgffgfgf 09.07.2019 19:40

zanna74 26.03.2021 13:49

nushales 08.10.2019 12:50

lacshenova 08.10.2019 12:50

antiangel18 14.04.2021 14:43

Які вимоги до ергономіки веб-сайту?...

ррраша 20.04.2020 19:15

pampuzik 20.04.2020 19:16

coolvikusa46 20.04.2020 19:16