Var
A,i:integer;
N:real;
Begin
WriteLn('Введите число');
ReadLn(N);
For A:= 100 to 999 do
if (A div 100)+((A div 10) mod 10)+(A mod 10)<=N then
Write(A,' ')
End.
Так как мощность равна 256, то на кодирование одного символа идёт 8бит или 1 байт.
Тогда 6*30*80=14400байт
14400:1024=14,0625кБайт
Ответ 14,0625
Program z2;Var a,b,c:integer; SA:real;Begin write('Введите 1-ое число: '); readln(a); write('Введите 1-ое число: '); readln(b); write('Введите 3-ье число: '); readln(c); SA:= (a + b + c) / 3; writeln('Сумма: ', SA);End.
Var
a,b: real;
begin
write('Введите a:');readln(a);
write('Введите b:');readln(b);
if a>b then writeln(a,' - максимальное')
else if b>a then writeln(b,' - максимальное')
else
writeln('Значения равны');
end.