Мигает, движется, слушать дает (телефон) .
<span>хвост длинный, а сама масявка, пользы мало если не в "связи" с чем-то (мышь) . </span>
<span>и не картотека и не библиотека, а все знает о многих (записная книжка) </span>
<span>все укроет - сбережет, а не холодильник. (дискета) </span>
рано поднимает, до вечера донимает (школа) .
Uses crt;
var a: array[0..15] of integer;
i:integer;
begin
for i:=1 to 15 do begin
write(random(21)-10,' ');
end;
<span>end.</span>
Ответ:
7. ftp://txt.info/hello.txt
8. 140
Объяснение:
8. x - лягушка
100 + x - 60 = 180
царевна + лягушка - царевна & лягушка = царевна | лягушка
x = 180 - 100 + 60
x = 140
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, 0, 100);
a.Println
end.
Квадрат 1 это единица. Квадратный корень из 100 - это 10. Следовательно, на заданном отрезке находятся квадраты всех целых чисел от 1 до 10. Их и нужно вычислить.
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
Range(1,10).Select(x->x*x).Println
end.
<u><em>Результат выполнения программы:</em></u>
1 4 9 16 25 36 49 64 81 100