Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, s : integer;
begin
s: =0;
for i: = 10 to 99 do
if i mod 5 = 0 then s: =s+i;
writeln('сумма двузначных чисел, кратных 5 =', s);
readln
end.
var
x,y: real;
x: =-1;
while x< =1 do
y: =x*x*x;
writeln(y);
x: =x+0.1;
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;
writeln(y: 2: 2);
readkey;
первую по подробней расспишите
k= 2 в степени а
a=глубина цвета
m=количество точек по горизонтали
n=количество точек по вертикали
k=количество цветов
v=объём видеопамяти
k=16 777 216 =2 в 24 степени
a=24
v = m × n × a
v=(1024×768×24)/(8×1024×1024)=2,25 мб
Популярные вопросы