Для передачи информации между компьютерами включеных в одну сеть
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadSeqIntegerWhile(t -> t > -1).AdjacentGroup.Where(t -> t[0] = 0)
.Select(t -> t.Count).Max.Println
end.
Var n:integer;
x:real;
begin
n:=0;
x:=300000;
while x<550500 do
begin
x:=x+0.11*x;
n:=n+1;
end;
writeln(n);
readln;
end.
Ответ:
import math
print('Введите x, y, z, q')
x, y, z, q = map(float,input().split())
print((math.sqrt(x**3)+y**3)/(z**3+q**3))
Объяснение:
Задание #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;