Question

Срочно сделайте задание

Answer 1

1:

var k,n,i,sum:integer;

s,t:string;

begin

   s := '';

   sum:=0;

   write('Введите количество пассажиров: '); readln(n);

   for i:=1 to n do begin

       k:=random(-140)+150;

       str(k,t);

       s:=s+t+' ';

       sum:=sum+k;

   end;

   if (sum>=20) and (sum<=750) then write('OK : ',s)

   else if sum < 20 then write('Недогруз: ',s)

   else write('Перегруз: ',s);

end.

2.

var k,n,i,sum:integer;

begin

   i:=1;

   sum:=0;

   write('Введите количество чисел: '); readln(n);

   while i <= n do begin

       write('Введите ',i,'-е число: '); readln(k);

       if k > 1000 then writeln('Число не должно превышать 1000!')

       else begin

           if (k div 10 <> 0) and (k div 100 = 0) then begin

               sum:=sum + (k div 10);

           end;

           inc(i);

       end;

   end;

   write(sum);

end.

3.

Там какие-то непонятки. По проверочным данным первый и второй сходятся, а последний - нет...

var k,n:integer;

begin

   write('Введите количество метров: '); readln(k);

   write('Введите количество недель: '); readln(n);

   write(((n*7) div 5) * 50 + k);

end.