Var s,k integer; //обозначили переменные.Тип integer говорит что это целые числа.
Begin
s:=0; //Присваеваем s значение 0.Тоесть s у нас в начале программы ровно нулю.
for k:=3 to 8 do s:=(s+3)*k; //Тут k присваеваем значение 3.Поэтому, от 3 до 8 делаем " s:=(s+3)*k".Тоесть (8-3=5) 5 раз выполняем s:=(s+3)*k.
Пишу ход выполения программы:
s:=(0+3)*3=9 // тут значение s стало ровно 9.
s:=(9+3)*3=12*3=36 // тут значение s стало ровно 36. И так далее.
s:=(36+3)*3=39*3=39*3=117
s:=(117+3)*3=120*3=360
s:=(360+3)*3=363*3=1089
write(s); // выводим значение рассчитанной s.
End. // конец программы.
Расстояние от точки до начала координат находится как длина гипотенузы прямоугольного треугольника, катетами которого являются координаты точки. Поскольку нам нужны не сами расстояния, а лишь сравнить их, то можно сравнивать квадраты, чтобы не извлекать корня.
// PascalABC.NET 3.0, сборка 1088
var
x1,x2,y1,y2,r1,r2:real;
begin
Write('Введите координаты первой точки: '); Read(x1,y1);
Write('Введите координаты второй точки: '); Read(x2,y2);
r1:=sqr(x1)+sqr(y1); r2:=sqr(x2)+sqr(y2);
if r1>r2 then Writeln('Ближе вторая точка')
else
if r1<r2 then Writeln('Ближе первая точка')
else Writeln('Точки равноудалены')
end.
<em><u>Тестовое решение:</u></em>Введите координаты первой точки: 16.3 -11.7
Введите координаты второй точки: 15.8 12
Ближе вторая точка
Что-то такое получилось, пиши в комменты если что не так:
var
a,b,k:longint;
begin
b:=1;
k:=0;
while b<10000 do
begin
read(a);
b:=b*a;
k:=k+1;
end;
writeln('Kol:',k);
writeln('Number:',b);
readln
end.