81.липы,осины,берёзы.79.2 игрок.80.2кончая,3.коник,4.там просто стрелочка.1слово я не помню.
Информационная система<span> — </span>система<span> обработки информации и </span><span>соответствующие организационные ресурсы</span><span>, которые обеспечивают и распространяют </span>информацию.
примеры
<span>Информационная система по отысканию рыночных ниш
</span><span>Информационные системы, ускоряющие потоки товаров.
</span><span>Информационные системы по снижению издержек производства
</span><span>Информационные системы автоматизации технологии
</span>
Begin
write('Введите целое число n (n > 1): ');
var n := ReadInteger;
var a := 1;
var b := 1;
write(1, ' ', 1, ' ');
for var i := 3 to n do
begin
var c := a + b;
write(c, ' ');
a := b;
b := c;
end;
end.
<h2>PascalABC.NET 3.4.2, сборка 1979 (16.02.2019)</h2><h2>Код</h2>
- begin
- var arr := Range(0, ReadInteger).Select(x -> x*x).Println;
- end.
<h2>Вывод</h2>
10
0 1 4 9 16 25 36 49 64 81 100
<span>все просто, что бы определить какой цифрой закончится число, надо взять последнюю цифру этого числа и возвести ее в квадрат. Затем, если число двузначное, то ответом будет послденяя цифра поученного числа или если число однозначное, то оно и будет ответом.
<span>var a:integer; </span>
<span>begin </span>
<span>read(a); </span>
<span>write(sqr(a) mod 10); </span>
<span>end.</span></span>