Длина кода должна быть любая а вот с длиной не так длина должна совпасть с кодами при этом надо учесть силы цифр
Здесь 40 треугольников если я не ошиблась...
Program ex1;
Uses crt;
Var
x,y:real;
f:byte;
Begin
clrscr;
write('x=');readln(x);
write('y=');readln(y);
if (x>=0) and (y>=0) then f:=1 else f:=0;
write('F=',f);
End.
<span>Дан файл библ, содержащий сведения о книгах. Сведения о каждой из книг – это фамилия автора, название и год издания. а) Найти названия книг данного автора, изданных с 1960 года. б) Определить, имеется ли книга с названием “Информатика”. Если да, то сообщить фамилию автора и год издания. Если таких книг несколько, то сообщить имеющееся сведения обо всех этих книгах.
</span>
Исходя из текста условия можно предложить что имеется ввиду преобразование текста из одной кодировки в другую. Если предположение верно, то задача описывается следующим уравнением:
16*n - 800 = 8*n
n=100
где n - число символов