Регистрация
Котейко444
18.04.2022 13:48
Информатика
Есть ответ 👍

Простейшие паскаль abc: 1: вычислите результат арифметического выражения: 112+ (6*57-9): 3 2. ширина прямоугольника 12 дм. длина - в 4 раза больше. найти периметр прямоугольника 3. в велогонке принимают участие двое велосипедистов. скорость первого- 35 км/с, скорость второго - 30 км/ч. на сколько позже второй велосипедист придет к финишу ,если длина трассы - 420 км? напишите программу

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

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

wehhc
wehhc
4,5(44 оценок)
//попытался расписать как можно проще 1) begin   writeln(112+(6*57-9)/3); end. 2) var   a,p: integer; begin   a: =4;   p: =2*12*4*12;   writeln(p); end. 3) var   v1,v2,s,t1,t2,r: real; begin   v1: =35;   v2: =30;   s: =420;   t1: =s/v1;   t2: =s/v2;   r: =t2-t1;   writeln(r,' часа'); end.
Salazar01
Salazar01
4,8(11 оценок)
Int c[6][6], p[2],  index, buff; p[0] = 0; //заполняем массив рандомными числами от 0 до 10 for (int i = 0; i < 6; i++) {       for  (int j = 0; j < 6; j++)       {           c[i][j] = 0 + rand()%10; //заполнил рандомными числам от 0 до 10       } } //теперь проходим массив по столбцам и просчитываем их произведение for (int j = 0; j < 6; j++) {       for  (int i = 0; i < 6; i++)       {              p[1] *= c[i][j]; //произведение столбца       }             //проверяем если произведение  предыдущего столбца меньше       //то мы записываем индекс большего столбца       if (p[0] < p[1])       {           p[0] = p[1];               index = j;       } } //и собственно меняем наши столбцы местами for (int i = 0; i < 6; i++) {       buff =  c[i][0];       c[i][0] = c[i][index];       c[i][index] = buff; }  дальше с выводом и библиотеками думаю сам разберешься

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