Всего: три.
1. Детективы 21 ...................................250 Есть
2. Кулинария 23 ...................................280 Есть
3. <span>Детская литература 43........................... 230 Есть</span>
В основном литературные сочинения не большие в размере , смотря какой это тип текста если это сказка она длинная если это стих он обично короткий , вообщем это зависит от типа.
Короткие : стихи , пословицы , загадки.
Средние : биография , краткое описание , небольшие рассказы
Большие : романы , сказки , фантастика ,ну ив таком роде)
Program task1;
var n, S, k, i: integer;
begin
write('Кол-во чисел = ');
readln(n);
S := 0;
For i := 1 to n do
begin
write('Введите число ');
readln(k);
S := S + k
end;
writeln('Сумма введенных произвольных чисел = ', s);
end.
<span>var i,s:integer;
begin
s:=0;
for i:=1 to 100 do
if i mod 3 = 0 then s:=s+i;
writeln('s = ',s);
end<span>.
Результат:
</span><span>s = 1683</span></span>
var a:integer;
begin
write('Введите число: ');
read(a);
if a mod 5=0 then
begin
a:=a*2;
write('Удвоенное число равно: ', a);
end;
if a mod 5 <>0 then write('Число не кратно пяти.');
end.