Смотря что Вы называете циклом. По установившейся терминологии любой цикл состоит из заголовка цикла (по строению которого циклы часто и именуют) и тела цикла. В языке паскаль в заголовке цикла с предусловием стоит ключевое слово while и ключевое слово цикла с параметром for стоять уже не может. Но в теле цикла, которое может иметь любое содержимое, цикл for, конечно же, может встречаться.
А вот язык Алгол, на базе которого Н.Вирт сконструировал свой Паскаль, мог в заголовке цикла содержать очень много всего и, в том числе, смесь while с for:
for x:=p0 step h1 until q-1, q+1 step h2 until t, t+0.17 step h3 while cos(x/2)<0.85 do ...
Но Н.Вирт решил, что такой цикл неэффективен и... оставил от него жалкие ошметки. Возможно, компилятору "стало проще жить", но зато программисты в Паскале лишились возможности не только писать в цикле вещественные значения, но и вынуждены менять целочисленные только на 1 или -1.
В первой и второй таблицах результат останется таким же, тк вставлялись пустые строка и столбец, а формулы автоматически поменяют адресацию.
В 3табл. при перемещении адрес не измениться, ответ -20
В 4табл.а3=-11,в2=4,в3=-11*4=-44. В ячейке с4=-62
В 5таб.при копировании фор. в с3 измениться адресация формулы и будет==C2*$A$1=0, тк С2=0
В 6 таб. До выполнения очистки D70 =4 и значение в D71=<span>
10,6, а после выполнения очистки </span> D70, <span>D71 стало =12,25</span>
Ответ:https://scratchet.top/scratch-2-0/
Объяснение:
Вроде вот
var
a, b, c:real;
begin
write('A = '); readln(a);
write('B = '); readln(b);
write('C = '); readln(c);
if abs(A - B )< abs(A - C) then
writeln('точка B расположена ближе к точке А, чем точка С. Расстояние от А до B: ', abs(A - B))
else
if abs(A - B ) > abs(A - C) then
writeln('точка С расположена ближе к точке А, чем точка B. Расстояние от А до С: ', abs(A - C))
else
writeln('Точки B и C находятся на одинковом расстоянии от точки А равном: ', abs(A - C));
end.