Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (y>=-x)and(y>=x)and(y<=1)
then writeln('YES')
else writeln('NO')
end.
Пример:
x = 0.5
y = 0.3
NO
Var k,i,n,a:integer;
begin
read(n);
while i<n do begin
read(a);
if (a mod 10=6) then k:=k+1; i:=i+1;
end;
writeln('Чисел, оканчивающихся на 6: ', k);<span>
end.</span>
Var a:array[1..12] of integer;
i:integer;
begin
for i:=1 to 12 do
read(a[i]);
for i:=12 downto 1 do
write(a[i],'; ');
end.
Сумма 1й диагонали равен Вб-1+Вб-4+2
Сумма последнего столбика 4+Вб+2
Получаем Вб-1+Вб-4+2=4+Вб+2
Вб=9ма сумма 15
Получиться
8 3 4
1 5 9
6 7 2
Aб=1 ответ A
Расстоянием между строк называется интерлиньяж