Плиз вирішити завдання в програмі Паскаль

Плиз вирішити завдання в програмі Паскаль

  • 1

    var x, F: real;
    begin
    write (Введіть х:);
    readln (x);
    if (x> -2.4) AND (x < 5.7 ) then F := sqr(x)
    else F: = 4;
    writeln (F =, F);
    end.

    2

    var x, F: real;
    begin
    write (Введіть х:);
    readln (x);
    if (x> 0.2) AND (x < 0.9 ) then F := sin(x)
    else F: = 1;
    writeln (F =, F);
    end.

    3

    var a, b, c: real;
    begin
    write (Введіть а:);
    readln (a);
    write (Введіть b:);
    readln (b);
    write (Введіть c:);
    readln (c);
    if (a < b ) AND ( b < c ) then writeln(a < b < c)
    else
    if (b> a) AND (a> c) then writeln (b> a> c)
    else
    writeln (Нерівності не виконуються);
    end.

  • Var
    x, f: real;
    begin
    Write (Введіть x:); Readln (x);
    if (x> -2.4) and (x<5.7) then f:=sqr(x)
    else f: = 4;
    Writeln (F =, f)
    end.

    var
    x, f: real;
    begin
    Write (Введіть x:); Readln (x);
    if (x> 0.2) and (x<0.9) then f:=sin(x)
    else f: = 1;
    Writeln (F =, f)
    end.

    var
    a, b, c: real;
    begin
    Write (Введіть три числа:); Readln (a, b, c);
    Write (Умова, a,<,b,<,c);
    if (b> a) and (b else Writeln (не виконується.);
    Write (Умова, b,>, a,>, c);
    if (ac) then Writeln (виконується.)
    else Writeln (не виконується.)
    end.

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

79 + = 83