Var g,t:integer;
s:real;
begin
g:=10;
writeln('Время падения в секундах равно ');
read(t);
while t<>0 do
begin
s:=(g*sqr(t))/2;
writeln('Высота колодца равна ',s,' метров.');
writeln('Время падения в секундах равно ');
read(t);
end;
end.<span>
</span>
Ошибки нет.
В условном операторе после if пишется <условие> (в данном случае "x=100"), а после then - <оператор> (в данном примере это оператор присваивания "y:=x*x;")
1) сокращённую хз, развёрнутая 0.189 * 10^3
2) 106 = 1101010 (2) = 152 (8) = 6A (16)
остальные хз
Вот программа program suma;
var a,q,w,e,r,t,y,u:real;
begin
writeln('Введите температуру воздуха понедельник');
readln(q);
writeln('Введите температуру воздуха вторник');
readln(w);
writeln('Введите чесло температуру воздуха среду');
readln(e);
writeln('Введите чесло температуру воздуха четверг');
readln(r);
writeln('Введите чесло температуру воздуха пятницу');
readln(t);
writeln('Введите чесло температуру воздуха субботу');
readln(y);
writeln('Введите чесло температуру воздуха воскресенье');
readln(u);
a:=((q+w+e+r+t+y+u)/(7));
writeln(a);
<span>end.
Тут всё понятно</span>