Регистрация
alkozlovtzeva
06.08.2022 19:10
Информатика
Есть ответ 👍

Составить блок-схему ветвление по этой : program program1; var s,v1,v2,v3,t1,t2,t3: real; begin write('введите скорость движения по равнине: '); readln(v1); write('введите скорость движения в гору: '); readln(v2); write('введите скорость движения под гору: '); readln(v3); write('введите время движения по равнине: '); readln(t1); write('введите время движения в гору: '); readln(t2); write('введите время движения под гору: '); readln(t3); s: =t1*v1+t2*v2+t3*v3; writeln('путь = ',s); end.

139
381
Посмотреть ответы 1

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

mashka2511
mashka2511
4,6(97 оценок)
Const     n = 3;     m = 4; var     t: array[1..n,1..m] of integer;     i,j: integer; begin randomize; writeln('было: '); for i: = 1 to n do       begin       for j: = 1 to m do               begin               t[i,j]: =random(3000);               write(t[i,j]: 6,' ');               if (99 < t[i,j])and(t[i,j]< 1000)and(t[i,j] mod 7 = 0) then t[i,j]: =t[i,j]-10;               end;       writeln       end; writeln('стало: '); for i: = 1 to n do       begin       for j: = 1 to m do             write(t[i,j]: 6,' ');       writeln       end; end. было:   2280      893    1825        21     491        97      666      402   1961    2639    1873    1069 стало:   2280      893    1825        21     491        97      666      402   1961    2639    1873    1069

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