Procedure maximum(a,b:integer; var max:integer); begin if a>b then max:=a else max:=b; end; var x,y,z,q,w,max:integer; begin writeln ('Введи 5 чисел'); Readln (x,y,z,q,w); maximum(x,y,max); maximum(max,z,max); maximum(max,q,max); maximum (max,w,max); writeln (max); end.
{ Лаконично :) } begin var a: <em>array</em> [1..5] of <em>Int64</em>; var i: <em>byte</em>; for i := 1 to 5 do readln(a[i]); writeln('Max: ', System.Math.Max(a[1], System.Math.Max(a[2], System.Math.Max(a[3], System.Math.Max(a[4], a[5]))))); <span>end.</span>
ret = '' for idx, char in enumerate(source): try: next = source[idx + 1] if char.isdigit() and next.isdigit(): qt = 10 * int(char) + int(next) next = source[idx + 2] else: qt = int(char) except: ret += char else: ret += next * (qt - 1)
Const n=100; var i,m,s:integer; com:array[1..n] of integer; begin randomize; readln(s); for i:=1 to n do begin com[i]:= random(100); if com[i] mod s =0 then s:=s+com[i] end; writeln(s); end.