Program Kolobok;
var zver:string;
begin
writeln('Ispekla babka kolobka i postavila yego na okoshko ostuzhatsya');
writeln('Ubezhal kolobok ot deda i ot babki i pokatilsya po dorozhke');
writeln('Kolobok katitsya, a navstrechu yemu zver');
writeln('Vvod zverya');
readln(zver);
if Zver = 'lisa' then
begin
writeln('Kolobok poyot pesenku dva raza');
writeln('Proshchay, Kolobok ...');
end
else
begin
writeln('Kolobok poyot pesenku');
writeln('Katitsya dalshe');
end;
end.
Задача сделана на языке паскаль, при помощи PaskalPlus
Оформление сделана как студенческой задачи
Если есть вопросы пиши в личку
Для начала , чтобы найти I(Обьем книги)=(кол.станиц×кол.строк×кол.символов×вес 1 символа)I=15×33×63×8=249'480 бит, теперь переводим в кбайты 249'480÷8=31'185 байт ; 31'185÷1024=30.45кбайт , округляем будет 31
кбайт.Ответ:31 кбайт нужно выделить.
P.S: Знак (') я писал, чтобы легче было распознать число.
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "RUSSIAN");
string str1;
int count=0;
cout << "Программа подсчета количества букв \"к\" строке" << endl;
str1 = "Строка";
for (int i = 0; i < str1.length(); i++)
if (str1[i] == 'к')
count++;
cout << "Буква встречается в строке " << count << " раз" << endl;
system("pause");
}
