Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var n, c, d, e, s : integer;
begin
write('введите число');
readln(n);
c: = n div 100;
d: =(n div 10) mod 10;
e: = n mod 10;
s: = c + d + e;
writeln('сумма чисел =', s);
readln
end.
var
n: integer;
writeln(abs(n)-2);
рrogram summa;
var s, a, b, c : word;
write('введите a - > '); readln(a);
write('введите b - > '); readln(b);
write('введите с - > '); readln(c);
s=а+в+с
write(' сумма равна ',s);
в принципе все, должно быть правильно
дано:
g= 44,1 кгц= 44100 гц
i= 16 бит
t=2 мин=120 сек
v-?
решение:
v=g*i*t
v= 44100гц*16 бит*120 сек= 8467200 бит
v= 8467200/8*1024*1024= 10 мбайт
Популярные вопросы