получается число 246 дальше незнаю но думаю на до делить
Задание #2
Var r, rz, g, gz, fin: integer;
Begin
r := StrToInt(Edit 1. Text) ;
rz := StrToInt(Edit 2. Text) ;
g := StrToInt(Edit 3. Text) ;
gz := StrToInt(Edit 4. Text) ;
fin := ( r * rz) + ( g * gz) ;
Edit 5. Text := IntToStr(fin) ;
End;
Задание #3
Var x, fom: integer;
Begin
x := StrToInt(Edit 1. Text) ;
fom := ((3 * sqr(x)) /sqrt(x + 2)) - 4;
Edit2.text := IntToStr(fom) ;
End;
А)Московский Кремль,Третьяковская Галерея,Питерский Эрмитаж.
б)Московский кремль,Третьяковская Галерея,Байкал.
в)Это не знаю!Это местное!Что в твоем городе.Например какие у тебя в городе памятники и т.д.
Var x: integer;
begin
x:=1;
while x<10 do
begin
x:=x+3;
x:=x+1;
end;
writeln(x);
end.
Вывод
13