Известно цена и количество каждого из двух товаров вывести общую стоимость написать программу

139

453

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

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

Arina111933

Информатика

4,4(65 оценок)

Var p1,k1,p2,k2,s: integer; begin writeln ('введите цену и количество первого товара: '); readln(p1,k1); writeln ('введите цену и количество второго товара: '); readln(p2,k2); s: =p1*k1+p2*k2; writeln ('общая стоимость = ',s); readln; end. пример: введите цену и количество первого товара: 25 3введите цену и количество второго товара: 120 2общая стоимость = 315

ikurilo

Информатика

4,6(92 оценок)

Var c: array[1..100] of integer; i,n,q,r,a,b: integer; t: real; begin readln(n,a,b); for i: =1 to n do c[i]: =random(-20,20); r: =c[1]; q: =1; for i: =1 to n do begin if c[i]< r then r: =c[i]; if c[i] mod 2=1 then q: =q*c[i]; if (c[i]> a) and (c[i]< b) then s: =s+1; end; t: =(r/(q+1))+s; writeln(r,' ',q,' ',s,' ',t); end.