Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var a, b, s, i : integer;
begin
write('введите а-');
readln (a);
write('введите b-');
readln (b);
s: =0; for i: = a to b do s: =s + i * sqr(i);
writeln ('сумма кубов =', s)
end.
смотря какая передача и каких данных, много чего придумать можно, мне кажется) телефон, радио, модем,рация. или просто- передатчик.
v=i*k (объем=глубина цвета * кол-во точек)
i=10, т.к. 1024=2¹⁰
k=100*(15*18)=27000 точек
v=10*27000=270000 бит = 33 килобайт (1 килобайт = 8192 бит)
var
a: integer;
readln(a);
writeln(a*(a div 10 + (a mod 10)*10));
Популярные вопросы