Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
s: string;
z,z1,i: integer;
begin
readln(s);
z: =0;
z1: =0;
for i: =1 to length(s) do
if s[i]='м' then inc(z);
if s[i]='н' then inc(z1);
end;
if z> z1 then writeln('больше букв м');
if z< z1 then writeln('больше букв н');
if z=z1 then writeln('букв м и н равное количество');
end.
цели создания модели бывают такие:
сохранить информацию о наблюдаемом объекте
передать информацию о нём другим людям
показать,как может выглядеть проектируемый объект
испытать на модели работу объекта ,если испытание объекта-оригинала
опасно или дорого
решить
16-битной кодировке unicode.
один символ s =16 бит
количество бит текстового файла к= 51200 бит/с * 10 с= 512000
количество символов к/s=512000/16 =32000
ну например
в первом столбике пишешь числа попорядку
во втором столбике пишешь "=a1*a1" и протягиваешь вниз на всю таблицу
в третем пишешь "=a1*a2" и протягиваешь вниз на всю таблицу
в первом столбике у нас получается число
во втором квадрат числа
в третем - куб числа
Популярные вопросы