Question

Составить Алгоритм и Программы
В магазине купили x тетрадей по 40 рублей за шт., и y карандашей по 12 рублей за шт. Найти всю стоимость

Answer 1

program pr_1;
var x,y,s,k,t:integer;
begin
k:=0;
s:=0;
t:=0;
readln(x,y);
t:=t+x*40;
k:=k+y*12;
s:=s+t+k;
write(s);
end.