Question

помогите пожалуйста Написать программу на языке Pascal: 1. Написать программу, которая находит среднее арифметическое двух целых чисел; 2. Написать программу, которая осуществляет вывод на экран рисунка

Answer 1

1.

Program z1;

var a,b:integer;

   s:real;

begin

Writeln ('Введите первое число:');

readln(a);

Writeln ('Введите второе число:');

readln(b);

s:=(a+b)/2;

Writeln('Среднее арифметическое:',s);

end.

2.

Program z2;

uses graphabc;

begin

setbrushcolor(clblack);

rectangle(100,50,250,350);

setbrushcolor(clred);

circle(175,100,30);

setbrushcolor(clyellow);

circle(175,200,30);

setbrushcolor(clgreen);

circle(175,300,30);

end.

Answer 2

Конечно! Вот две программы на языке Pascal, которые выполняют указанные вами задачи.

Программа 1: Вычисление среднего арифметического двух целых чисел

pascalCopy code
program AverageCalculation;
var
  num1, num2: integer;
  average: real;
begin
  writeln('Введите первое число: ');
  readln(num1);
  writeln('Введите второе число: ');
  readln(num2);
  
  average := (num1 + num2) / 2;
  
  writeln('Среднее арифметическое чисел ', num1, ' и ', num2, ' равно ', average:0:2);
  readln;
end.

Программа 2: Вывод рисунка на экран

pascalCopy code
program Drawing;
begin
  writeln('   / \');
  writeln('  /   \');
  writeln(' /     \');
  writeln(' |     |');
  writeln(' |     |');
  writeln(' |     |');
  writeln(' |     |');
  writeln(' |     |');
  writeln(' |     |');
  writeln(' |     |');
  writeln(' -------');
  readln;
end.

Скопируйте каждую программу в редактор Pascal, сохраните файл с расширением .pas (например, average.pas для первой программы и drawing.pas для второй программы), а затем скомпилируйте и запустите программу для получения результатов.