Работа создайте таблицу содержащую информацию о приобретении канцтоваров для школы. вставьте формулы для подсчета стоимости каждого вида товара, общей стоимости. определите, среднюю цену товара, наибольшее количество товара, а так же на какой товар была потрачена наименьшая сумма. постройте диаграмму, показывающую, какого товара было приобретено больше всего. наименование цена количество стоимость учебники 150 50 тетради 9 75 ручки 6,5 80 карандаши 2,5 92 мел 12,3 10 итого: средняя цена наибольшее количество наименьшая стоимость
2) 7 выведет 1
3)
11 строка, поменять на k := k + 1;
14 строка заменить на if n = 1 then
Рабочий код
var
n, k: integer;
begin
read(n);
k := 0;
while n mod 7 = 0 do
begin
k := k + 1;
n := n div 7;
end;
if n = 1 then
writeln(k)
else
writeln('He существует')
end.
Правильное решение данной задачи
const
divider = 7;
var
n: integer;
k: real;
begin
read(n);
k := ln(n) / ln(divider);
if round(k) = k then
writeln(round(k))
else
writeln('He существует');
end.