Var a,b,c,d,e,max:integer; begin writeln('a, b, c, d, e:'); readln(a,b,c,d,e); If a>b then max:=a else max:=b; If c>max then max:=c; If d>max then max:=d; If e>max then max:=e; Writeln('max = ',max); End.
Var a,b,c,d,e,max:integer; begin readln(a,b,c,d,e); If (a>b) and (a>c) and (a>d) and (a>e) then max:=a; If (b>a) and (b>c) and (b>d) and (b>e) then max:=b; If (c>a) and (c>b) and (c>d) and (c>e) then max:=c; If (d>a) and (d>b) and (d>c) and (d>e) then max:=d; If (e>a) and (e>b) and (e>c) and (e>d) then max:=e; Writeln(max); End.
Поговорим о работе беспроводных устройств, на простом уровне. Устройства, оборудованные модулями для беспроводного подключения к сети, используют радиоволны для передачи информации. По сути, такая же технология используется сотовыми телефонами, радиоприемниками, телевизорами, за исключением того, что технология беспроводной связи Wi-Fi, использует более высокие частоты. Использование более высоких частот, позволяет передавать больше данных между беспроводным адаптером компьютера, и беспроводным маршрутизатором. Посредством беспроводной сети, данные передаются от компьютера, и принимаются от беспроводного маршрутизатора. Модуль преобразует информацию в радиосигнал и передает ее при антенны. В свою очередь, беспроводной маршрутизатор получает этот сигнал и преобразует его в вид, пригодный для дальнейшего отправления в Интернет. Полученные данные отправляются уже отправляются в всемирную паутину через провод
// PascalABC.NET 3.0, сборка 1111 var a,b:BigInteger; sa,sb:string; begin Write('Первое слагаемое: '); Readln(sa); if BigInteger.TryParse(sa,a)=False then Writeln('Это не целое число!') else begin Write('Второе слагаемое: '); Readln(sb); if BigInteger.TryParse(sb,b)=False then Writeln('Это не целое число!') else Writeln('Точный результат: ',a+b) end end.
Тестовое решение: Первое слагаемое: 5423323409523846095938445870434764308454095 Второе слагаемое: 7425543205430235436743455446541423534233 Точный результат: 5430748952729276331375189325881305731988328
begin
writeln('a, b, c, d, e:');
readln(a,b,c,d,e);
If a>b then max:=a else max:=b;
If c>max then max:=c;
If d>max then max:=d;
If e>max then max:=e;
Writeln('max = ',max);
End.
Пример:
a, b, c, d, e:
8 5 2 9 4
max = 9