Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, n : integer
d : array[1..30] of real;
begin
write ('введите разметность массива n=');
readln(n);
writeln(''введите элементы массива d: ');
for i: =1 to n do
readln(d[i]);
writeln ('исходный массив d: ');
write(d[i]);
if d[i] mod 3 = 0 then d[i]: = 2 * d[i];
writeln ('полученный массив d: ');
readln
end.
2^3 = 8 цветов (скорее всего оттенки серого)
var s: string; begin writeln('как вас зовут? '); readln(s); case s of 'вася': s: ='василий'; 'петя': s: ='петр'; 'люся': s: ='людмила'; 'миха': s: ='михаил'; 'пупс': s: ='пупондий'; else s: ='я с вами не знакома'; end; writeln(s); readkey; end.
v=24*640*480 = 7372800 бит.
737200: 8 = байт.
921 600: 1024 = 900 кб
900: 1024 = 0,88 мб
2 мб : 0,88 мб = 2,28.
количество страниц : 2
Популярные вопросы