Rem "имя программы"
input a
y=(a^2+10)/(sqr(a^2+1))
print "y=";y
end
это на языке basic переведи на паскаль они похожи.надеюсь ты справишься
Program i7;
var
i,n,k: integer;
begin
writeln('vvedi 4etireh znachoe chislo');
readln(n);
k:=1;
while n>0 do
begin
k:=k*n mod 10;
n:=n div 10;
end;
writeln(k);
end.
Возможно эта. Таблица переводов первых из одной Ссч в другую
Program znanija;
var a,b,c:integer;
begin
write ('Введите 3 числа: ');
read(a,b,c);
if a<b and a<c and b<c then
begin
a*2;
b*2;
c*2;
write ('Числа: ',a, b, c);
end
else write ('Числа упорядочены не по возрастанию');
end.
При мощности алфавита 16 для хранения одного символа требуется log(2)16 = 4 бита.
Объем текста = 4*180*1024 бит = 4*180*1024 / 8 байт = 90*1024 / 1024 Кбайт = 90 Кбайт