Var A,B,i : Integer;
Begin
Readln(A,B);
For i:=A to B do Writeln(Sqr(i));
end.
Такой вид информации называется осязанием
<span>Флэш-карта имеет объем 1Гбайт. Альманах содержит 336 страниц, в которой есть страницы с текстом по 2 КБ и 80 страниц с иллюстрациями, объемом 5 Мбайт каждая. Сколько альманахов полностью поместятся на флэш-карту в несжатом виде?
ответ:
336*2=672 КБ или 0,65625 Мб.
80*5=400 Мб
400+</span>0,65625 = 400,65625 Мб. - 1 Альманах
1 ГБ - 1024 МБ
следовательно 1024/400,65625 = 2,.......
т.о. поместиться 2 целых Альмонаха
1) находим расстояния от начала координат до точек ( длины отрезков )
S = x^2+ y ^2 , где x и y - координаты двух точек
2) сравниваем их
Program mm;
var a: array [1..10] of real; i: integer; s: real;
begin
for i:=1 to 10 do begin
Writeln("Введите элемент номер ",i); read(a[i]);
end;
for i:=1 to 10 do
if (a[i]>=2) and (a[i]<=5) then s:=s+a[i];
Writeln(s); readln;
end.
Если что, пиши в личку.