Program ex16; var a,b,x,z,alpha:real; begin Write('a,b='); Read(a,b); x:=(a+b)/2; z:=(1+x)/(1+(1+x)/x); alpha:=a*x*x-cos(b*x)+z/2; Writeln('x=',x,' z=',z,' alpha=',alpha) end.
Контрольное решение Turbo Pascal Version 7.0 Copyright (c) 1983,92 Borland International a,b=0.58 -2.4 x=-9.1000000000E-01 z= 9.9878048780E-02 alpha= 1.1057274246E+00
Var a: array[1..10] of integer; sum, i: integer;beginsum:=0;for i:=1 to 10 do begin readln(a[i]); if a[i] mod 2=0 then sum:= sum+a[i]; end;write(sum);end.
А) модель солнечной системы- очень большая Б) модель аттама- очень мала В)очень быстрая Г)земля медленная Д) взрыв очень опасен Е) самолет очень быстрый и большой