В одном байте восемь бит- следовательно в 128 Кбайтах будет 128*8=1024 бита
Var x,y:real;
begin
write('x = '); readln(x);
if x>12
then y:=2*x+15
else if x=12 then y:=54.4 else y:=-7.8;
writeln('y = ',y);
end.
Пример:
x = 10
y = -7.8
{
Free Pascal Compiler version 2.6.4+dfsg-8 [2015/08/14] for x86_64
Copyright (c) 1993-2014 by Florian Klaempfl and others
}
program X_and_Y;
Var count, n, sum : integer;
begin
writeln('Введите 5 чисел:');
count:=1;
sum:=0;
while count<=5 dobegin
readln(n);
sum := sum+n;
inc(count);
end;
writeln('Сумма равна ', sum);
sum := 0;
for count:=1 to 5 dobegin
readln(n);
inc(sum, n);
end;
writeln('Сумма равна ', sum);
end.
Решу задачу только скажи случайные чисмла какого промежутка?
<span>Шрифт
Размер шрифта
Полужирный
Курсив
Подчеркнутый
___
Выровнять:
</span>По левому краю
<span>По центру
По правому краю
__
</span>Нумерация