Написать программу для вычисления цены ткани, количество и стоимость вводятся с клавиатуры Pascal
Var
k, c: integer;
begin
write(Введите количество: );
readln(k);
write(Введите стоимость: );
readln(c);
writeln(Цена равна , c/k);
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Var
k, c: integer;
begin
write(Введите количество: );
readln(k);
write(Введите стоимость: );
readln(c);
writeln(Цена равна , c/k);
end.