Спутники Урана — естественные спутники планеты Уран. Известно 27 спутников. Все они получили названия в честь персонажей из произведений Уильяма Шекспира и Александра Поупа. Первые два спутника — Титанию и Оберон — в 1787 году открылУильям Гершель. Ещё два сферических спутника (Ариэль и Умбриэль) были открыты в 1851 году Уильямом Ласселом. В 1948 году Джерард Койпер открыл Миранду. Остальные спутники были открыты после 1985 года, во время миссии «Вояджера-2», или с помощью усовершенствованных наземных телескопов.
program znachy2;
uses crt;
var n,l:integer;
k,y:real;
begin
y:=0;
readln(l);
for n:=1 to l do
begin
k:=1/sqr(n);
y:=k+y;
end;
writeln(y)
end.
ты елсе пропустила в первом, когда начала второй запрос делать ну и в третьем что то пропустила)) и енд в 3 с конца без точки запятой))
1) var a,b:integer;beginreadln(a,b);if a>b thenwriteln(a+b,' задача решена')else writeln(a*b,' задача решена');end.
2) !!! ; 3 ; 16 ; 7 ; 8 ; 29 ; 66
3) 1
4) -5; 0; -6; 5; -0.4; 0.32; -17; 15; 11; 7; 8
Procedure TFrmCalc.BtnPlusClick(Sender: TObject);
begin
FrmCalc.LblPlus.Visible:=True;
FrmCalc.LblMinus.Visible:=False;
FrmCalc.LblDel.Visible:=False;
FrmCalc.LblUmn.Visible:=False;
FrmCalc.LblA.Caption:=IntToStr(StrToInt(FrmCalc.EdtCh1.Text)+StrToInt(FrmCalc.EdtCh2.Text));
end;
Попробуйте так, мне сейчас не на чем проверить, но должно получиться =)