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>
Uses crt;
Var a: integer;
Begin
Writeln('Введите число:');readln(a);
If a>0 then writeln('Ваше число в квадрате:',power(a,2));
Else writeln('Ваше число в кубе:',power(a,3));
End.
Может, как-то так:
а) тишь-тушь-туша-тура-бура-буря
б) тьма-тема-рема-рама-рана-кана-канн-каон-клон-слон-стон-стан-сван-сват-свет
тьма-тема-сема-сима-сила-кила-килт-киот-крот-грот-глот-глет-слет-свет
512*512*256=67108864 бит
67108864 / 8=8388608 байт
8388608/1024=8192 Килобайт
8192/1024= 8 Мегабайт