<span> Животным свойственна память: они помнят дорогу к месту своего обитания, места добывания пищи; домашние животные отличают знакомых людей от незнакомых. Многие животные обладают обостренным обонянием, несущим им ценную информацию.</span>
Var s: string;
i:integer;
begin
write('Введите текст: ');
readln (s);
for i:=1 to length(s) do
if s[i]='к' then write (i,' ');
<span>end.</span>
Задача 4. Определить объем растрового изображения размером 200 х 200 и 256 цветами.Решение: 200 х 200 х 8 бит = 320 000 бит / 8 бит / 1024 байт = 39,0625 Кбайт ≈ 39 КбайтОтвет: 39 Кбайт
Во втором находится сумма цифр числа
а = 1
б = 2
с = 5
Сумма = 8
В третьем надо написать, насколько я вижу, на паскале программу.
program Hello;var a,b,c,x:integer;begin readln(x); a:=x div 100; b:=x mod 100 div 10; c:=x mod 10; writeln('Сотни ',a); writeln('Десятки ',b); writeln('Единицы ',c);end.