Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1. 0,25 кбайт=256 байт = 2048 бит
2. каждый символ - 8 бит
3. 2048/8=256 символов
var a,b,c,d: integer;
begin
writeln ('vvedite a');
read(a);
writeln ('vvedite b');
read(b);
writeln ('vvedite c');
read(c);
writeln ('vvedite d');
read(d);
if (a> b) and (a> c) and (a> d) then writeln('samoe bolshoe chislo - a')
else writeln('a ne samoe bolshoe');
end.
program zadacha2;
uses crt;
var i,n,a: integer;
b,y,c,l: real;
clrscr;
readln(n);
a: =1;
b: =2;
c: =5;
for i: =1 to n do
if a mod 2 = 0 then
l: =a+b/c
else
l: =a-b/c;
a: =a+1;
b: =b+2;
c: =c+5;
y: =y+l;
end;
writeln(y: 2: 2);
readkey;
первую по подробней расспишите
800*600*24*4/8=5760000 байт=5625 кбайт
Популярные вопросы