Задание:
Паска-а-аль. Ввести с клавиатуры цену и кол-во товара. Найти стоимость покупки. Пишите!
Решение:
program test; var x, y: real; begin write ('Vvedite cenu tovara: '); readln (x); write ('Vvedite kolichestvo tovara: '); readln (y); writeln ('Stoimost pokupki=', (x*y): 0:2); readln (); end.
Знаете другой ответ?