var
n,a: string;
i, p: integer;
begin
p:= 0;
write('n='); read(n);
write('a='); read(a);
for i := 1 to length(n) do
begin
if n[i] = a then p:=p+1;
end;
writeln('В этом числе цифра ',a,' встречалась ',p,' раз.');
end.
Стоимость со скидкой=Цена со скидкой*кол-во.
Стоимость с учётом НДС=Стоимость со скидкой*(1-0,2)=Стоимость со скидкой*0,8.
Отсутствует в 8ричной и 2чной
не один ответ не соответствует этому полностью
частично а
Вводим в строку следующее:
> [print];[slovo].