Сгенератора случайных чисел получить 8 чисел из диапазана от 0 до 20, вывести на экран в первой строке все эти числа,через пробел, а во второй строке только четные из них
Program n1; const n=8; var a: array [1..n] of integer; i: integer; begin randomize; for i:=1 to n do a[i]:=random(20); for i:=1 to n do write(a[i],' '); writeln(''); for i:=1 to n do if(a[i] mod 2=0) then write(a[i],' '); end.
Информационный вес символа при алфавитном подходе считается, что каждый символ текста имеет определенный информационный вес, информационный вес символа зависит от мощности алфавита. а каким может быть наименьшее число символов в алфавите? оно равно двум! скоро вы узнаете, что такой алфавит используется в компьютере. он содержит всего 2 символа, которые обозначаются цифрами «0» и «1». его называют двоичным алфавитом. изучая устройство и работу компьютера, вы узнаете, как с всего двух символов можно представить любую информацию. информационный вес символа двоичного алфавита принят за единицу информации и называется 1 бит.
Точнее сказать - чем word отличается от программы Writer из пакета OpenOffice. Word имеет больше функций. Это важно тем, кто много профессионально работает с текстами. Кстати, Word 2010 умеет сохранять в PDF. Зато Writer может читать все форматы Word, а Word не может читать формат Writer - формат .odt. Word - платный. Если сравнивать OpenOffice с Word 2007 и выше, то они отличаются друг от друга совершенно разным расположением кнопочек и панелей. Если ты привык к Word, то тяжело привыкать к OpenOffice. И наоборот. Это я знаю по себе. Но это - дело привычки. Есть целые предприятия, которые перешли но OpenOffice. Еще могу сказать, что Writer дольше запускается. Правда, потом работает без тормозов. Вывод: нельзя сказать, какой лучше. Если для себя - то достаточно OpenOffice поставить, ибо он уже стабильный и по-честному бесплатный.
const n=8;
var a: array [1..n] of integer;
i: integer;
begin
randomize;
for i:=1 to n do a[i]:=random(20);
for i:=1 to n do write(a[i],' ');
writeln('');
for i:=1 to n do if(a[i] mod 2=0) then
write(a[i],' ');
end.