Заполните пропуски так, чтобы отобразилось сообщение “ni ni ni”.
_ni ni ni")

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.

графический файл состоит из 10000 точек.. используется всего два цвета, то есть на кодировку 1 цвета уходит 1 бит информации.. => 10000 бит

за тридевять земель или к чёрту на кулички

попробуйте так (turbo pascal):

program 1;

var s: string;

c: integer;

begin

write('vvedite nazvaniye zhivotnogo');

read(s);

writeln('vvedite kolichestvo syedennyh gribov');

readln(c);

writeln(s, ' ', 'syest', ' ', c, ' ', 'gribov');

end.