<span>Что мы знаем о войне Немного
По рассказам бабушек и мам
Знаем, что надежда и тревога
Об руку ходили по домам
Слухи зависали как знамена
Дымом застилался горизонт
Многоверстный и многоименный
Жаждал крови ненасытный фронт
А из тыла за волной волна
Шла латать верховные промашки
Всасывала мальчиков война
И выплевывала мертвые бумажки
Каждый шаг к победе ли к беде
Сводки измеряли расстояньем
Даже самый распобедный день
Был комуто вечным расставаньем
Годы возвращающий экран
Очевидцев честные романы
Все равно останутся обманом
Ссадины не заменяют ран
Только изредка за толщей дней
Вдруг всплеснёт сирены голос лютый
Замирая криками детей
И застынет сердце на минуту
</span>
Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*x+y*y<=6*6)and((x<=0)or(y<=0))
then writeln('Да')
else writeln('Нет')
end.
Пример:
<span>x = -3
y = 3
Да</span>
2,224 Мегабайта
1 Килобайт=0,001 Мегабайта
Программа на языке программирования Pascal
Var l:integer;
l1:real;
lm:integer;
begin
write('Введите расстояние в сантиметрах ');
read(l);
l1:=l/100;
lm:=trunc(l1);//округляет значение до близжайшего вычитая из него -0.5
writeln(lm,' метров');
<span>end.</span>