• Помогите решить задачи по Информатике в Паскале!!! Все 3 задачи.

    question img

Ответы 11

  • подумайте какими графическими образами можно проиллюстрировать виды информации и свойства информации
  • помоги
    • Автор:

      jessoahl
    • 5 лет назад
    • 0
  • Спасибо, Физикъ555.
  • Физикъ555, можно стать вашем учеником!?
    • Автор:

      bubba96
    • 5 лет назад
    • 0
  • Что сам пойму - объясню=)) Хотя с трудом...
    • Автор:

      lukaskz1o
    • 5 лет назад
    • 0
  • Но давай в ЛС перейдёт=))
    • Автор:

      cindyspjy
    • 5 лет назад
    • 0
  • )) простите ......
    • Автор:

      kaeshbk
    • 5 лет назад
    • 0
  • Как же весело будет антиспамеру, когда он всё это удалять будет=D
  • ))).....
    • Автор:

      birdykm3j
    • 5 лет назад
    • 0
  • Первая:Var X:real;BeginWrite('X = ');ReadLn(X);if X<6 then WriteLn(X*X);if (X>=-6)and(X<6) then WriteLn(Abs(X)+4);if X>=6 then WriteLn(X*(X+1))End.Вторая:Var A,B:real;BeginWrite('A = ');ReadLn(A);Write('B = ');ReadLn(B);if ((A>=0)and(A<=15))or((B>=0)and(B<=15)) then WriteLn(A*A+B*B)else WriteLn((A+B)/2)End.Третья:Var A,B,C,D:real;BeginWrite('A = ');ReadLn(A);Write('B = ');ReadLn(B);Write('C = ');ReadLn(C);D:=B*B-4*A*C;if D>=0 thenBeginWriteLn('X1 = ',(-B+sqrt(D))/(2*A));WriteLn('X2 = ',(-B-sqrt(D))/(2*A));Endelse WriteLn('Корней нет')End.
    • Автор:

      barker18
    • 5 лет назад
    • 0
  • задача 2var a,b:real;beginwriteln('a=');readln(a);writeln('b=');readln(b);if (a>=0) and (a <=15) or (b>=0) and (b<=15) then writeln(sqr(a)+sqr(b)) else writeln ((a+b)/2);readln;end.задача 1var x:real;beginwrite('x= ');readLn(x);if x<6 then WriteLn(sqr(x));if (x>=-6)and(x<6) then WriteLn(Abs(x)+4);if x>=6 then writeLn(x*(x+1))end.задача 3Var a,b,c,d:real;x1,x2:real;BeginWrite('a = ');ReadLn(a);Write('b = ');ReadLn(b);Write('c = ');ReadLn(c);d:=sqr(b)-4*a*c;if D>0 then beginx1:=(-b+sqrt(d))/2*a;x2:=(-b-sqrt(d))/2*a;end;if d=0 then writeln('koren=',-b/2*a);if d<0 then writeln ('kornei net')End.
    • Автор:

      numbers
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years