Составить программу,в паскале вычисляющую стоимость покупки из нескольких тетрадок, ручек, карандашей. Стоимость и кол-во вводить с клавиатуры.
Ответы
Ответ дал:
0
//Pascal ABC.NET v3.0 сборка 1111
Var
r,t,k,rc,tc,kc:integer;
begin
writeln('Введите кол-во ручек, тетрадок и карандашей соответственно');
read(r,t,k);
writeln('Введите стоимость ручек, тетрадок и карандашей соответственно');
read(rc,tc,kc);
writeln('Цена всех ручек=',rc*r);
writeln('Цена всех тетрадок=',tc*t);
writeln('Цена всех карандашей=',kc*k);
writeln('Сумма покупок=',rc*r+tc*t+kc*k);
end.
Var
r,t,k,rc,tc,kc:integer;
begin
writeln('Введите кол-во ручек, тетрадок и карандашей соответственно');
read(r,t,k);
writeln('Введите стоимость ручек, тетрадок и карандашей соответственно');
read(rc,tc,kc);
writeln('Цена всех ручек=',rc*r);
writeln('Цена всех тетрадок=',tc*t);
writeln('Цена всех карандашей=',kc*k);
writeln('Сумма покупок=',rc*r+tc*t+kc*k);
end.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад