Регистрация
alinashakeeva
22.03.2021 13:37
Информатика
Есть ответ 👍

Составить программу pascal: вводят число от 1-12 -номер если число входит в интервал от 1 до 12, то высвечивается месяц, а если нет то выходит слово !

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

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

8aA7
8aA7
4,6(10 оценок)
Var months: array [1..12] of string;       x: integer; begin   months[1] : = 'january';   months[2] : = 'february';   months[3] : = 'march';   months[4] : = 'april';   months[5] : = 'may';   months[6] : = 'june';   months[7] : = 'july';   months[8] : = 'august';   months[9] : = 'september';   months[10] : = 'october';   months[11] : = 'november';   months[12] : = 'december';   read(x);   if ((x < 1) or (x > 12)) then begin       write('error! ');   end else begin       write(months[x]);   end; end.
nelindos18
nelindos18
4,6(79 оценок)
Uses crt; var a,b,c: array[1..100] of integer; i,n: integer; begin writeln('размер массивов? '); read(n); writeln('элементы 1-го массива? '); for i: =1 to n do read(a[i]); writeln('элементы 2-го массива? '); for i: =1 to n do read(b[i]); for i: =1 to n do begin c[i]: =a[i]+b[i]; write(c[i],' '); end; end.

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