Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  summa
Language: PASCAL
Code:
program Summa;
var s, k, c:integer;
 begin
   writeln('введите кол-во k=');
   readln(k);
writeln ('введите цену одного товара c=');
readln(c);
s:=k*с;
writeln('Сумма покупки s= ',s);
readln(s);
end.          
          
          
          
          
          
          
Comments: