2)
var h: real;
Begin
writeln('Введите высоту H: ');
readln(h);
Writeln('Скорость: ',sqrt(2*h/9.81):2:2,' м/с');
end.
Dim R As Single, p As Single, h As Single, V As Single
p = 3.1415926
R = InputBox("Введите радиус основания")
h = InputBox("Введите высоту цилинтра")
V = p * R ^ 2 * h
<span>MsgBox V</span>
1.
<span>G23 относительная</span>
<span>$F$10
абсолютная</span>
<span>H$4
смешанная</span>
2.
=D3-C3
3.
в)
=$А$6+$7$С
4.
Смотрите №1
5.
=$A$5*B8
<span>
</span>
используй File Viwer Plus или Notepad++, очень крутые проги, сам использую
Var x,s:integer;
begin
s := 0;
read(x);
while x <> 0 do
begin
if (x mod 3 = 0) and (x mod 10 = 4)
then s := s + x;
read(x)
end;
write(s)
end.