Var N,K:integer;
begin
write('Введите значение количество школьников N=');
readln(N);
write('Введите значение количество персиков K=');
readln(K);
writeln('Каждому школьнику достанется по ',K div N,' шт');
writeln('в корзине останется ',K mod N,' шт');
<span>end.</span>
В строчках, в которых Вы вычисляете y1 есть явная ошибка - скобок не хватает, а некоторые скобки можно, наоборот, убрать:
Вместо y1:=((1/3)*(2*y0+x/y0*y0))
надо написать y1:=(2*y0+x/(y0*y0))/3
1024*768*16=(2^10) * (3*2^8)*(2^4) = 3*2^22 бит =
=3*2^19 байт = 3*2^9 Кбайт=3*512 Кбайт =
=1536 Кбайт
С одной стороны 50 строк
с другой стороны код не скомпилируется, так как нет точки после end
Да очень просто: переписываешь на какой-нибудь вменяемый язык, выполняешь и смотришь результат.
javascript:function F(n){return(n>1?F(n-1)+G(n-1):n+1);}function G(n){return(n>1?G(n-1)+F(n):n-1);}alert(F(5));
Даёт 26.