Зрителельная ,тактильная ,вкусовая,слуховая
Var
n: int64;
function f(n: int64): int64;
begin
if(n > 0) then f := f(n div 10) + (n mod 10);
end;
begin
readln(n);
write(f(n));
end.
Катя - 2 июня
соня - 20 марта
тамара - 17 мая
галя - 2 марта
4) 8 бит * 64 символа * 32 строки * 4 страницы = 65 536 бит или 8 Кбайт
5) BEGIN
6) 8 символов
Var t, a, i: integer;
begin
write('Введите количество минут: ');
read(t);
a:=1;
for i:=1 to t do
begin
a:=a*2;
writeln('Бактерий через ', i , ' минут: ', a);
end;
<span>end.</span>