1)Составить программку в паскале 2) и еще если можно выполнить в

Var x: integer;
begin Write('Введите значение x: '); ReadLn(x); if x gt;= 15 then begin x += 15; if x gt; 20 then begin x *= 5; x -= 25; end else begin x *= 3; x += 13; end end else begin x += 6; if x gt;= 10 then begin x *= 11; x += 24; end else begin x *= 4; x -= 8; end end; Write(x);end.

Оленька Аревшатян 2019-09-07 11:28:03

var a, b ,c, D, x1, x2: real;beginWrite('Введите значение a: ');Readln(a);Write('Введите значение b: ');Readln(b);Write('Введите значение c: ');Readln(c);if ( a = 0 ) then Writeln('Уравнение не является квадратным')else Begin D:= Sqr(b) - (4*a*c); if ( D < 0 ) then Writeln('Корней нет') else Begin x1:= ( -b -Sqrt(D) ) / ( 2*a ); x2:= ( -b +Sqrt(D) ) / ( 2*a ); Writeln('----'); Writeln('Ответы:'); Writeln('x1 = ', x1); Writeln('x2 = ', x2); End End;end.

Даниил Каравайников 2019-09-07 11:29:38

Вот

Михаил Омиров 2019-09-07 11:39:28

третье

Арсений Викрамасекара 2019-09-07 11:43:08

в вк напиши мне) vk . com/vffuunnyy

Камилла 2019-09-07 11:45:46

только пробелы сотри

Никита 2019-09-07 11:52:49

для чего в вк?)

Лилия Ковалерян 2019-09-07 11:54:19

поэтому что я тут не желаю разговаривать)

Lilija Janochka 2019-09-07 11:59:30

окей

Ольга Непотягова 2019-09-07 12:02:08

хорошо, если надобно пиши туда

Maksim Goltjaev 2019-09-07 12:05:12

))

О проекте

1)Составить программку в паскале 2) и еще если можно выполнить в

Добро пожаловать!