Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program gf; var x: integer; beginwrite('положительные двухзначные числа: '); for x: =-99 to 99 doif (x< -9) and (x> -100) thenwrite(x, ' '); writeln; write( ' отрицательные двухзначные числа: '); for x: =-99 to 99 doif (x> 9) and (x< 100) thenwrite(x, ' '); end.
сред. арифметическое = сумма всех чисел разделить на количество
(a1 + a2 + a3 + a4 + a5) / 5
var a,b,c: array [1..100,1..100] of integer;
as,bs,cs,i,j: integer;
begin
sb: =1;
for i : = 1 to n do
for j: = 1 to n do
if a[i,j]< 0 then sa: =sa+a[i,j];
if b[i,j]> 0 then sb: =sb*b[i,j];
if j=3 then sc: =sc+c[i,j];
end;
writeln(sa,sb,sc);
end.
1л=1дм^3
8л = 0.008 куб метров
5.68кг=0.00568 тон
плотность
0.00568/0.008=0.71 тон на кубометр
500*0.71 = 355 тон влезет в цистерну
Популярные вопросы