Сколько времени займет обработка всех деталей

@Kristls · Регистрация: 24.11.2012

Каждая из деталей должна последовательно пройти обработку на каждом из трех станков. Продолжительности обработки каждой детали на каждом станке вводятся группами по 3 числа, до исчерпания ввода. Сколько времени займет обработка всех деталей?

@CodeR · 24.11.2012, 14:56

Pascal

Const m=3;
Var i,n,j:integer;
    vr,s:real;
Begin
    write('Введите кол-во детаелей: ');readln(n);
    s:=0;
    For i:=1 to n do
     For j:=1 to m do
     Begin
       write('Время обработки ',i,'-ой детали на ',j,'-ом станке: ');
       readln(vr);
       s:=s+vr;
     End;
    writeln('Общее время обработки всех деталей: ',s:0:2);
    readln;
End.

@Kristls 0 / 0 / 0 Регистрация: 24.11.2012 Сообщений: 38
		1
	Сколько времени займет обработка всех деталей 24.11.2012, 14:28. Просмотров 1649. Ответов 1 Метки нет (Все метки) Каждая из деталей должна последовательно пройти обработку на каждом из трех станков. Продолжительности обработки каждой детали на каждом станке вводятся группами по 3 числа, до исчерпания ввода. Сколько времени займет обработка всех деталей? 0

Опции темы

Сколько времени займет обработка всех деталей

Решение