Для классического варианта Паскаля: Var m : array[1..100] of Integer; i : Integer; Begin For i:=1 to 100 do Begin m[i]:=Random(179)+22; If m[i] mod 5 = 0 then Writeln(m[i]); end; end.
1) program prim; uses crt; var h,b,dev:integer; begin clrscr; writeln("Введите общее кол-во детей"); readln(h); writeln("Из них мальчиков"); readln(b); dev:=h-b; writeln("На день рождения пришло", dev ,"девочек."); repeat until keypressed; end.
2) program prim1; uses crt; var x:integer; y:real; begin clrscr; x:=3; y:=(sqr(x)+2*x+3)/4; writeln("Y равно: ", y); repeat until keypressed; <span>end.</span>