Составить блок-схему ветвление по этой : program program1; var s,v1,v2,v3,t1,t2,t3: real; begin write( - id375382020211209 от missisvereshac 09.12.2021 08:28

Question

Информатика: Составить блок-схему ветвление по этой : 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.

missisvereshac · Accepted Answer

Решение с использование длинной арифметики. var   i, j, n, len, rem: integer;   a: array[1..200] of byte; begin   write( Введите число: );   read(n);   len := 1;   a[1] := 1;   for i := n + 1 to 99 {100} do   begin     for j := 1 to len do     begin       rem := a[j] * i + rem;       a[j] := rem mod 10;       rem := rem div 10;     end;     while rem 0 do     begin       inc(len);       a[len] := rem mod 10;       rem := rem div 10;     end;   end;   writeln( Произведение чисел из интервала ( ,...

MOGZ ответил