Помогите решить задачи по Информатике в Паскале?

Sonyam2005 28 мар. 2020 г., 08:15:37

Первая :

Var X : real ;

Begin

Write('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 ;

Begin

Write('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 ;

Begin

Write('A = ') ; ReadLn(A) ;

Write('B = ') ; ReadLn(B) ;

Write('C = ') ; ReadLn(C) ;

D : = B * B - 4 * A * C ;

if D> ; = 0 then

Begin

WriteLn('X1 = ', ( - B + sqrt(D)) / (2 * A)) ;

WriteLn('X2 = ', ( - B - sqrt(D)) / (2 * A)) ;

End

else WriteLn('Корней нет')

End.

12таня123456 28 мар. 2020 г., 08:15:41

Задача 2

var a, b : real ;

begin

writeln('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.

Задача 1

var x : real ;

begin

write('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.

Задача 3

Var a, b, c, d : real ;

x1, x2 : real ;

Begin

Write('a = ') ;

ReadLn(a) ;

Write('b = ') ;

ReadLn(b) ;

Write('c = ') ;

ReadLn(c) ;

d : = sqr(b) - 4 * a * c ;

if D> ; 0 then begin

x1 : = ( - 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.

Toma25 7 мая 2020 г., 08:16:13 | 5 - 9 классы

Помогите пожалуйста решить эти задачи по информатике?

Помогите пожалуйста решить эти задачи по информатике.

Рил 17 сент. 2020 г., 02:31:08 | 5 - 9 классы

Паскаль, помогите решить задачу?

Паскаль, помогите решить задачу.

Kwsad 24 авг. 2020 г., 22:25:15 | 5 - 9 классы

Помогите решить задачу по информатике по паскалю?

Помогите решить задачу по информатике по паскалю.

Все четные числа из диапазона от А до В, кратные трём (А< ; = В).

Настя26783 11 сент. 2020 г., 06:23:32 | 10 - 11 классы

Помогите решить задачу в паскаль ?

Помогите решить задачу в паскаль :

Курчик 9 авг. 2020 г., 21:14:55 | 5 - 9 классы

Помогите решить задачу по информатике пж?

Помогите решить задачу по информатике пж.

MariaKoroleva 26 мая 2020 г., 16:38:13 | 5 - 9 классы

Помогите решить задачу по информатике Пожалуйста?

Помогите решить задачу по информатике Пожалуйста.

Папаримский6 24 сент. 2020 г., 20:10:46 | 10 - 11 классы

Помогите решить задачу по информатике?

Помогите решить задачу по информатике.

Настенасоластенnm 11 окт. 2020 г., 07:30:18 | 10 - 11 классы

Задача по информатике помоги пожалуйста?

Задача по информатике помоги пожалуйста!

5 вариант, решите пожалуйста как обычную задачу а я сам переведу на паскаль!

159258456 23 нояб. 2020 г., 07:37:48 | 5 - 9 классы

Помогите срочно по информатике решить задачу?

Помогите срочно по информатике решить задачу!

Arina1403 13 нояб. 2020 г., 06:32:15 | 5 - 9 классы

Помогите решить задачи по информатике?

Помогите решить задачи по информатике.