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

180

494

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

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

12352858585

Информатика

4,7(94 оценок)

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.

катя4003

Информатика

4,4(2 оценок)

Даже понятия не имею, к чему тут div и mod. решается циклом for: var a,i: integer; b,c,b2: real; begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); c: =c*0.01; b2: =b; for i: =1 to a do b2: =b2+(b2*c); b2: =b2-b; writeln('ответ: ',b2: 0: 2); end.