25 байт = 25*8=200 бит
30 кб = 30* 1024 = 30720 байт
9 мб = 9*1024*1024=9437184 байт
6 кб = 6*1024*8=49152 бит
288 бит = 288/8=36 байт
5242880 тб = 5242880 *1024*1024*1024=5242880*2^30 кб
Program zadacha;
var a,b,c:integer;
d:real;
begin
read (a,b);
c:=a+b;
c:=c mod 2;
if c = 0
then d:=a/b
else d:= b*a;
write(d);
end.
Microsoft Word - мощный текстовой процессор, предназначенный для выполнения всех процессов обработки текста: от набора и верстки, до проверки орфографии, вставки в текст графики в стандарте *.pcx или *.bmp, распечатки текста. Он работает с многими шрифтами ,как с русским ,так и с любым из двадцати одного языка мира. В одно из многих полезных свойств Word входит автоматическая коррекция текста по границам, автоматический перенос слов и правка правописания слов, сохранение текста в определенный устанавливаемый промежуток времени, наличие мастеров текстов и шаблонов, позволяющих в считанные минуты создать деловое письмо, факс, автобиографию, расписание, календарь и многое другое. Word обеспечивает поиск заданного слова или фрагмента текста, замену его на указанный фрагмент, удаление, копирование во внутренний буфер или замену по шрифту, гарнитуре или размеру шрифта, а так же по надстрочным или по подстрочным символам. Наличие закладки в тексте позволяет быстро перейти к заложенному месту в тексте. Можно так же автоматически включать в текст дату, время создания, обратный адрес и имя написавшего текст. При помощи макрокоманд Word позволяет включать в текст базы данных или объекты графики, музыкальные модули в формате *.wav. Для ограничения доступа к документу можно установить пароль на текст, который Word будет спрашивать при загрузке текста для выполнения с ним каких-либо действий. Word позволяет открывать много окон для одновременной работы с несколькими текстами, а так же разбить одно активное окно по горизонтали на два и выровнять их.
Program Pr1;
uses crt;
var mas:array[1..10000] of integer;
i,v:integer;
Begin
clrscr;
v:=0;
for i:=1 to 10000 do mas[i]:=i;
for i:=1 to 10000 do if (mas[i] mod 13<>0) and (mas[i] mod 17<>0) then v:=v+1;
writeln(v);
end.