Пожалуйста?

Valeryzay1 14 нояб. 2020 г., 08:38:58

Var a, b, x, y, z, m : real ;

Begin

Write ('Размеры отверстия a, b = ') ;

Read(a, b) ;

Write ('Размеры кирпича x, y, z = ') ;

Read(x, y, z) ;

if a>b then begin m : = a ; a : = b ; b : = m end ;

if x>y then begin m : = x ; x : = y ; y : = m end ;

if x>z then begin m : = x ; x : = z ; z : = m end ;

if y>z then begin m : = y ; y : = z ; z : = m end ;

if (x> = a) or (y> = b) then

write('Кирпич не пройдет через отверстие')

else

write('Кирпич пройдет через отверстие') ;

end.

Пример :

Размеры отверстия a, b = 3 4

Размеры кирпича x, y, z = 4 3 2

2 3 4

Кирпич пройдет через отверстие.

MikaEpt 27 апр. 2020 г., 10:34:15 | 5 - 9 классы

ЧТО НЕ ПРАВИЛЬНО?

ЧТО НЕ ПРАВИЛЬНО?

Program p_1 ;

var x, y : real ;

begin

read(x) ;

if 0< ; x< ; 2 then begin y : = sqr(cos(x)) ;

else begin y : = 1 - sin(sqr(x)) ;

end ;

writeln(y) ;

end.

Svimpul03 13 нояб. 2020 г., 12:47:01 | 5 - 9 классы

Найдите ошибку пожалуйста Program percentage ; uses crt ; var a, b, c, d : real ; begin writeln('Здравствуйте, вас приветствует программа для нахождения процентов в заданиях ОГЭ?

Найдите ошибку пожалуйста Program percentage ; uses crt ; var a, b, c, d : real ; begin writeln('Здравствуйте, вас приветствует программа для нахождения процентов в заданиях ОГЭ.

Искомую переменную обозначтье (0).

') ; write('Введите переменную a - ') ; read(a) ; write('Введите переменную b - ') ; read(b) ; write('Введите переменную c - ') ; read(c) ; write('Введите переменную d - ') ; read(d) ; writeln ; if a = 0 then begin a : = c * b / d ; writeln(' Ответ : ', a) ; end ; if b = 0 then begin b : = a * d / c ; writeln(' Ответ : ', b) ; end ; if c = 0 then ; begin c : = a * d / b ; writeln(' Ответ : ', c) ; end ; if d = 0 then begin d : = c * b / a ; writeln(' Ответ : ', d) ; end ; writeln('Спасибо за использование программы!

') ; end.

Drvitekivanov 30 авг. 2020 г., 22:22:39 | 10 - 11 классы

Помогите описать алгоритм?

Помогите описать алгоритм!

Uses crt ;

var s, sn, sg : string ;

i : integer ;

begin

write('s = ') ;

readln(s) ; sn : = '' ;

for i : = 1 to length(s) do

if s[i] = '.

' then

sn : = sn + '.

' else sn : = sn + s[i] ;

write('s = ', sn) ;

readkey

end.

Ubu68 6 мар. 2020 г., 14:47:31 | 10 - 11 классы

Определите, может ли кирпич, имеющий форму прямоугольного параллелепипеда с ребрами a, b, c, пройти через прямоугольное отверстие со сторонами x и y(при этом стороны параллелепипеда параллельны сторон?

Определите, может ли кирпич, имеющий форму прямоугольного параллелепипеда с ребрами a, b, c, пройти через прямоугольное отверстие со сторонами x и y(при этом стороны параллелепипеда параллельны сторонам отверстия).

Считать, что при равенстве размеров отверстия и кирпича кирпич не сможет пройти в отверстие.

Руха5 1 нояб. 2020 г., 05:48:49 | 5 - 9 классы

Program kv_ur ;uses crt ;vara, b, c, d : integer ;x1, x2, x : real ;beginWriteln ('Введите a, b, c') ;Read (a, b, c) ;d : = sqr(b) - 4 * a * c ;if d> ; 0 thenbeginx1 : = - b - sqrt(d) / 2 * a ;x2 : ?

Program kv_ur ;

uses crt ;

var

a, b, c, d : integer ;

x1, x2, x : real ;

begin

Writeln ('Введите a, b, c') ;

Read (a, b, c) ;

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

if d> ; 0 then

begin

x1 : = - b - sqrt(d) / 2 * a ;

x2 : = - b + sqrt(d) / 2 * a ;

Writeln ('Корни уравнения : x1 = ', x1, ' x2 = ', x2) ;

end

else

if d< ; 0 then

Write ('Нет корней')

else

begin

x : = - b / 2 * a ;

Writeln ('Корень уравнения : x = ', x) ;

end ;

end.

Написать проверку.

MrFrAnKiNsHtAiN 14 апр. 2020 г., 19:06:15 | 10 - 11 классы

По тексту программы определите условие задачи var i, x, s, k, n : integer ; begin s : = 0 ; k : = 0 ; readln(n) ; for i : = 1 to n do begin read(x) ; if x> ; 0 then begin S : = s + x ; k : = k + 1 ?

По тексту программы определите условие задачи var i, x, s, k, n : integer ; begin s : = 0 ; k : = 0 ; readln(n) ; for i : = 1 to n do begin read(x) ; if x> ; 0 then begin S : = s + x ; k : = k + 1 ; end ; end ; if k : = 0 then writeln(s) else writeln(s / k : 4 : 2) ; end.

AvEnTaDoR005 25 сент. 2020 г., 12:43:18 | 5 - 9 классы

Program TELESHOP ; var x : real ; begin writeln ('?

Program TELESHOP ; var x : real ; begin writeln ('.

') ; write ('.

') ; write ('.

') ; readln (x) ; if x< ; = 1 then begin if x = 1 then begin writeln ('.

') ; writeln ('.

') ; end else begin writeln ('.

') ; end ; * else begin writeln ('.

') ; end end.

* - место ошибки.

"встречено 'else', а ожидалось оператор" Вопрос : в чем ошибка?

Ksusha1037 25 июн. 2020 г., 21:03:03 | 5 - 9 классы

Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 ?

Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 then begin writeln ('утро') ; readln (d) ; if a = 12 then begin writeln ('день') ; end ; if a = 16 then begin writeln ('вечер') ; / / / if a = 21 then begin writeln ('ночь') ; / / / end ; end ;

Treio 28 авг. 2020 г., 11:10:47 | 10 - 11 классы

Помогите решить, пожалуйста) var a, b, t, M, R : integer ; Function F(x : integer) : integer ; begin F : = 9 * (x + 19) * (x - 19) + 1 ; end ; begin a : = - 20 ; b : = 20 ; M : = a ; R : = F(a) ; for ?

Помогите решить, пожалуйста) var a, b, t, M, R : integer ; Function F(x : integer) : integer ; begin F : = 9 * (x + 19) * (x - 19) + 1 ; end ; begin a : = - 20 ; b : = 20 ; M : = a ; R : = F(a) ; for t : = a to b do begin if (F(t) < ; R ) then begin M : = t ; R : = F(t) end end ; write(M) ; end.

Ряжка 25 дек. 2020 г., 18:21:48 | 5 - 9 классы

Помогите пожалуйста, cрочно?

Помогите пожалуйста, cрочно!

Составить блок - схему.

Program primer6 ;

uses crt ;

x : integer ;

begin

clrscr ;

readln(x) ;

if x mod 2 = 0 then writeln ('да')

else writeln ('нет')

end.