Это тест по информатике, повер поинт
<span>Что мы знаем о войне Немного
По рассказам бабушек и мам
Знаем, что надежда и тревога
Об руку ходили по домам
Слухи зависали как знамена
Дымом застилался горизонт
Многоверстный и многоименный
Жаждал крови ненасытный фронт
А из тыла за волной волна
Шла латать верховные промашки
Всасывала мальчиков война
И выплевывала мертвые бумажки
Каждый шаг к победе ли к беде
Сводки измеряли расстояньем
Даже самый распобедный день
Был комуто вечным расставаньем
Годы возвращающий экран
Очевидцев честные романы
Все равно останутся обманом
Ссадины не заменяют ран
Только изредка за толщей дней
Вдруг всплеснёт сирены голос лютый
Замирая криками детей
И застынет сердце на минуту
</span>
Program gg;var a,b,c:real;
begin a:=(1+1/4)/(1+1/2); b:=(6.8*0.04*1.65)/(3.3*5.1*0.16); c:=((3+1/2+1+4/5)*3/5-1.18)/((8+1/8)*(2/13)+(1+1/3)/(1+7/9));end.
11011111 = 223
11011001 = 217
11000011 = 195
11000000 = 192
Program z8;
<span>Var p:integer; </span>
<span>Begin </span>
<span>p:=8; </span>
<span>while p<20 do </span>
<span>begin </span>
<span>p:=p+2; </span>
<span>writeln(p); </span>
<span>end; </span>
<span>end.</span>