Var
a: array[-10..10] of real;
i: integer;
begin
for i := -10 to 10 do begin
Read(a[i]);
a[i] := a[i] / 10;
Write(a[i]+' ');
end;
end.
Ответ:
У меня жосткий волос синие глаза я сильный и я высокий.
Будем ремонтировать следующие опоры : A B D F H J L N O
получим 10 + 5 + 10 + 40+ 30 +50 + 2 + 3 +20 = 170
<em>Напишем рядом с ответом количество единиц первого множителя:
1*11=11 (К=1)</em>
<em>11*11=121 (К=2)</em>
<em>111*111=12321 (К=3)</em>
<em>1111*1111=1234321 (К=4)</em>
<em>11111*11111=123454321 (К=5)
</em><em>и т. д.</em>
Как мы видим, ответ напрямую зависит от количества единичек в первом множителе(К): от 1 до К и от К-1 до 1.
<em>Зная это свойство, можно не проводить громоздкие вычисления.</em>
1)uses crt;
var a,b:integer;
begin
readln(a);
readln(b);
if ((a>0) and (b>0)) or ((a<0) and (b<0)) then writeln('Имеют одинаковые знаки');
if ((a>0) and (b<0)) or ((a<0) and (b>0)) then writeln('Имеют разные знаки');
if (a=0) or (b=0) then writeln('Некорректно');
end.
2) какой именно коэффициент?