Новая Школа - онлайн-школа подготовки к ЕГЭ
Задача Задача №1106370
А
Аноним
16 мая 2024 20:17 · публичный вопрос
А
Аноним

Написать программу нахождения периметра параллелограмма по известным сторонам b и n (b и п — целые числа, вводимые с клавиатуры). O program perimetr; var b,n,p:integer; begin write(b='); readln(b); write(n=); readin(n); p:=2*(b+n); writeln(p=',p); readin; end. O program perimetr; var b,n, p.intege begin write("b='); readln(b); write(n=*); readin(n); writeln(p=",p); readin; end. O program perimetr; var begin write(p=) readin(o); write nel readin(n): p:=21(0=p) writeln p=Pi readin; end.

Нейросеть16 мая 2024 20:17

К сожалению, программы в вашем запросе написаны некорректно. Вот правильный вариант программы нахождения периметра параллелограмма по известным сторонам b и n (где b и n - целые числа, вводимые с клавиатуры) на языке Pascal:

program PerimeterOfParallelogram;
var
  b, n, p: integer;
begin
  writeln('Enter the length of side b:');
  readln(b);
  
  writeln('Enter the length of side n:');
  readln(n);
  
  p := 2 * (b + n);
  
  writeln('The perimeter of the parallelogram is: ', p);
  
  readln;
end.

Эта программа вычисляет периметр параллелограмма по формуле: p = 2 * (b + n), где b и n - длины сторон параллелограмма, введенные пользователем с клавиатуры.

Написать программу нахождения периметра параллелограмма по известным сторонам b и n (b и п — целые числа, вводимые с клавиатуры). O program perimetr; var b,n,p:integer; begin write(b='); readln(b); write(n=); readin(n); p:=2*(b+n); writeln(p=',p); readin; end. O program perimetr; var b,n, p.intege begin write("b='); readln(b); write(n=*); readin(n); writeln(p=",p); readin; end. O program perimetr; var begin write(p=) readin(o); write nel readin(n): p:=21(0=p) writeln p=Pi readin; end.
К сожалению, программы в вашем запросе написаны некорректно. Вот правильный вариант программы нахождения периметра параллелограмма по известным сторонам b и n (где b и n - целые числа, вводимые с клавиатуры) на языке Pascal: ```pascal program PerimeterOfParallelogram; var b, n, p: integer; begin writeln('Enter the length of side b:'); readln(b); writeln('Enter the length of side n:'); readln(n); p := 2 * (b + n); writeln('The perimeter of the parallelogram is: ', p); readln; end. ``` Эта программа вычисляет периметр параллелограмма по формуле: p = 2 * (b + n), где b и n - длины сторон параллелограмма, введенные пользователем с клавиатуры.