var x: integer;
begin
write('Введите номер месяца: ');
readln(x);
if (x = 9)or(x = 10) then writeln('I четверть');
if (x = 11)or(x = 12) then writeln('II четверть');
if (x = 1)or(x = 3) then writeln('III четверть');
if (x = 4)or(x = 5) then writeln('IV четверть');
end.
Input"введите текст"; a$
For i=1 to len(a$)
if mid$(a$,i,1)="М" then s=s+1
next
print " Количество букв =" s
end
1) 32*128*8=32786 символов на 8 страницах
N=2^i ; 16 = 2^4 ; i = 4 бита
<span>32768*4=131072 бита
теперь переводим в кбайт
</span>131072/8 = 16384 байт/1024 = 16кБ.
Вы вводите символьную информацию (данное типа char) при помощи процедуры Read(). В языке Паскаль ввод должен ВСЕГДА завершаться посылкой пары кодов "перевод строки" и "возврат каретки", что и происходит при нажатии клавиши "Enter". Так, если Вы вводите латинское "А", программа получает не один символ, а три: с кодом "А", с кодом "перевод строки" и с кодом "возврат каретки". И чтение в цикле происходит сразу три раза до очередного обращения к клавиатуре. Итого получается четыре прохода по циклу: первые три символа на самом деле воспринимаются, как девять, а затем считывается четвертый, что дает десять и цикл завершается.
Для правильной работы с символьными данными (char, string) следует использовать не Read(), а Readln() и все у Вас получится. Процедура Readln() "отрезает" коды "перевод строки" и "возврат каретки".