Решите из 50 киллограм молока получат 4 килограмма сыра.сколькоткилограммов сыра получиться из 1 т молока? из 5 т

в 1 т=1000 кг

 

1000/50=20

20*4=80 кг сыра 

 

5000/50=100

100*4=400 кг сыра

1)1000/50=20

2)20*4=80

3)5000/50=100

4)100*4=400

1a) var   a: integer; begin   readln(a);   if a mod 2 = 0 then       println('da')   else println('net'); end. ====================================== 1 б) var   a: integer; begin   readln(a);   if a mod 10 = 7 then       println('da')   else println('net'); end. ================================ 2 а var   a: integer; begin   readln(a);   if (a div 10+a mod 10) mod 3 = 0 then       println('da')   else println('net'); end. ====================================== 2 б var   n,a: integer; begin   writeln('введите число');   readln(n);   writeln('введите a');   readln(a);   if (n div 10+n mod 10) mod a = 0 then       println('da')   else println('net'); end.

Const   n=15; var   i,np,nn,amax: integer;   a: array[1..n] of integer; begin   randomize;   write('исходный массив: ');   np: =0; nn: =0;   for i: =1 to n do begin       a[i]: =random(51)-15;       write(a[i],' ');       if a[i]> 0 then inc(np)       else if a[i]< 0 then inc(nn);       end;   writeln;   if np/nn> 2 then begin       amax: =a[i];       for i: =2 to n do           if a[i]> amax then amax: =a[i];       write('выходной массив: ');       for i: =1 to n do begin           if a[i]< 0 then a[i]: =1           else               if a[i]> 0 then a[i]: =a[i]*amax;           write(a[i],' ')           end;       writeln       end   else writeln('в массив изменения не вносятся') end. пример работы программы исходный массив: 28 8 21 32 0 26 30 11 35 21 14 6 0 -4 -8 выходной массив: 980 280 735 1120 0 910 1050 385 1225 735 490 210 0 1 1