uses crt;
var
x,i:integer;
begin
clrscr;
writeln ('X Sin(x) Cos(x) Tg(x)');
i:=2;
for x:=0 to 45 do begin
write (x:2,' ',sin(x*pi/180):0:4,' ',cos(x*pi/180):0:4,' ');
write (sin(x*pi/180)/cos(x*pi/180):0:4);
writeln;
i:=i+1;
if i=24 then
begin
writeln ('Press Enter');
readkey;
end;
end;
readln;
end.
Program n_1;
Var a, b, c, S, n: Integer;
Var q:Real;
Begin
Writeln('' Введите первое число'');
Readln(a) ;
Writeln('' Введите второе число'');
Readln(b) ;
Writeln('' Введите третье число'');
Readln(c) ;
S:=a+b+c;
n:=a*b*c;
q:=S/3;
Writeln(S) ;
Writeln(n) ;
Writeln(q) ;
end.
Я так понимаю, это Access.
4. - г (сделать более простым ввод значений в поле)
5. - а
6. - б
7. - г
8. - а
9. - в
13. а,г