Var
n,i,chet:integer;
s:string;
begin
readln(n);
str(n,s); // Функция str преобразует число n в строку s
for i:=1 to length(s) do begin
if (ord(s[i])-48) <= 0 then halt; // Процедура halt завершает программу если введенное число <=0
if (ord(s[i])-48) mod 2 = 0 then chet:=chet+1;
end;
writeln('Кол-во цифр - ',length(s),' Кол-во четных - ',chet);
<span>end.</span>
Возьми слово переписка
подбирай слова такие чтобы в них была буква п е р е п и с к а.
все!
Есть много решение этой задачи. Вот моё.
program n_1;var a:real;beginread(a);a:= a / 2;writeln(a,' ',a);end.
Размер цифрового моноаудиофайла измеряется по формуле:
A = D*T*i,
где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение или глубина кодирования звука).
16 кГц = 16*1000 Гц = 16000 Гц
300 Кбайт = 300*1024 байт
Время звучания = 300*1024 / (16000*1) = 19,2 с
Slovo nachinaetsja i zakanchivaetsja na odnu i tu zhe bukvu. Eto slovo "кортик".
Esli bukva "и" imeet nomer 1 (to est' stoit na pervom meste), to progovarivaja alfavit dal'she, poluchaem bukvu "к", kotoraja budet tret'ej. I tak dalee so vsemi ostavshimisja bukvami - "р" na 9-m meste i "о" na 7-m meste