Program dlksjijh; var a: array [1..40] of integer; i: integer; begin writeln('исходные значения: ' ); for i: =1 to 40 do begin a[i]: =random(21); write(a[i], ' '); end; writeln; writeln('преобразованный массив: ') for i: = 1 to 40 do begin if a[i] mod 2 = 0 then a[i]: =round(a[i]/2) else a[i]: =a[i]*3; write(a[i], '' ); end; end. где ошибка? , не знаю что делать?

155

312

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

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

Kseniya006

Информатика

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

Program dlksjijh; var a: array[1..40] of integer; i: integer; begin randomize; writeln('исходные данные: '); for i : = 1 to 40 do begin a[i] : = random(21); write(a[i], ' '); end; writeln; writeln('преобрезованный массив: '); for i : = 1 to 40 do begin if a[i] mod 2 = 0 then a[i] : = round(a[i]/2) else a[i] : = a[i] * 3; write(a[i], ' '); end; end. имена операций - с прописной буквы, и, поскольку есть то самой первой строкой программы должна быть команда randomize, то есть активация генератора случайных чисел. у меня работает.

maximruba

Информатика

4,6(88 оценок)

Var a,b,c,alfa,beta,gamma: real; ga,ma,sa,gb,mb,sb,gg,mg,sg: real; begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); alfa: =arccos((b*b-c*c+a*a)/(2*b*c))*180/pi; ga: =int(alfa); ma: =int(frac(alfa)*60); sa: =frac(frac(alfa)*60); writeln('alfa = ',ga: 3: 0,' gr ',ma: 3: 0,' min ',sa: 3: 1,' sec'); beta: =arccos((c*c-b*b+a*a)/(2*c*a))*180/pi; gb: =int(beta); mb: =int(frac(beta)*60); sb: =frac(frac(beta)*60); writeln('beta = ',gb: 3: 0,' gr ',mb: 3: 0,' min ',sb: 3: 1,' sec'); gamma: =arccos((c*c-a*a+b*b)/(2*c*b))*180/pi; gg: =int(gamma); mg: =int(frac(gamma)*60); sg: =frac(frac(gamma)*60); writeln('gamma = ',gg: 3: 0,' gr ',mg: 3: 0,' min ',sg: 3: 1,' sec'); end. пример: a=3 b=4 c=5 alfa = 90 gr 0 min 0.0 sec beta = 53 gr 7 min 0.8 sec gamma = 36 gr 52 min 0.2 sec

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

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

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.