Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
звуковой тип и текстовый тип
а)400*2,5=1000кб
б)64: 2,5=25,6=25(страниц)
в)нужен диск cd-r ,cd-rw
program xxx;
var a,s : string;
i: integer;
begin
writeln ('введите слово и символ-');
readln (s,a);
for i: =1 to length(a) do
if copy (s,i,1)=a then writeln (i);
readln
end.
Популярные вопросы