Регистрация
nobos9n
24.06.2023 22:55
Информатика
Есть ответ 👍

Склавиатуры вводится стоимость одной детали и их количество. найдите стоимость всех деталей, составив программу.

243
437
Посмотреть ответы 2

Ответы на вопрос:

mazaeva333
mazaeva333
4,6(74 оценок)
Var a,b: real; begin   read(a,b);   writeln(a*b); end.
solnyshko46
solnyshko46
4,4(28 оценок)
Var   a: array[1..20] of integer;   i,n,c: integer;     begin       for i: =1 to 20 do         begin         a[i]: =random(10)+1;         write(a[i],' ');           if i mod 2 = 1 then             if a[i] mod 2 = 0 then             begin               c: =c+a[i];               n: =n+1;           end;       end;       writeln;               writeln( c/n);       end.

Популярно: Информатика