в некотором царстве, в некотором государстве жила-была… нет! так все сказки начинаются. а моя сказка начинается по-другому. на далёком острове среди бушующего океана информации раскинулось государство технология. царствовала там мудрая информатика. и были у неё подданные: микросхемы, мониторы, процессоры, клавиатуры, компьютерные мыши и многие другие жители. захотела информатика общаться с другими государствами и построила интернет-порталы. узнали о государстве технология на близких островах и далёких землях. царица информатика была щедрой правительницей. она приходила на всем, кто её об этом просил. все радовались неоценимым подаркам информатики. но один злой правитель захотел всё могущество и знание информатики прибрать к своим рукам. однако ему не удалось заполучить её знания, поэтому он решил причинить информатике вред. и начал он создавать армию вирусов. вирусы были коварные. под видом добрых намерений они пробирались в дома к программам и портили их. информатика и не догадывалась, какая угроза нависла над её жителями. однажды она зашла к windows xp, а он оказался испорченным и не узнал её. информатика рассказала, кто она такая, и попросила вспомнить, кто его испортил. windows вспомнил и сказал об этом информатике. информатика созвала совет старейшин и рассказала им о проблеме. посовещавшись, они вместе начали создавать антивирусы. получилось целое войско: dr. web, kaspersky, avira, panda, nod32 и другие. когда следующая партия вирусов прошла через интернет, на них набросились антивирусы и связали их. подлые враги рассказали, кто их сделал. злого правителя поймали, посадили в клетку. царица информатика не закрыла интернет, а только расставила на границах стражу от вирусов. так и по сей день правит информатика в своём государстве и делится своими знаниями с добрыми людьми
Ответ дал: Гость
var a,b: real;
begin
readln(a,b);
if a*b< 0 then writeln(a*b*2) else writeln(a*b*1.5);
end.
Ответ дал: Гость
uses crt, graph;
var grdr, grmd,i,j,g: integer;
begin
grdr: =detect;
initgraph(grdr, grmd,’c: \bp\bgi’);
setbkcolor(lightgray);
g: =getbkcolor;
i: =20; j: =20;
begin
setcolor(red);
setfillstyle(1,red);
fillellipse(i,j,5,5);
delay(3000);
setfillstyle(1,g);
fillellipse(i,j,5,5);
i: =i+random(3);
j: =j+random(2);
end;
readln;
end.
Ответ дал: Гость
нажимаешь на клавишу shift-переключаешь с больших на маленькие буквы, в верхней панели *форматирования* курсором выбираешь -курсив!
Популярные вопросы