Question

СРОЧНОО, ТОЛЬКО НЕ НУДНО ПИСАТЬ ПРО ТАК !!!

Answer 1

У вас два одинаковых вопроса, так что даю два одинаковых ответа :)

Задание 1:

1. Вычислить длину окружности и площадь круга

program circle;

var r:integer;

begin

  write('Введите радиус круга: '); readln(r);

  writeln('Периметр круга = ', 2*pi*r:0:3);

  writeln('Площадь круга = ', pi*sqr(r):0:3);

end.

2. Найти сумму членов арифметической прогрессии, если известны ее первый член, разность и число членов прогрессии

program prog;

var i,a,n,step,sum:integer;

begin

  sum:=0;

  write('Введите первый член арифметической прогрессии: '); readln(a);

  write('Введите первый шаг арифметической прогресии: '); readln(step);

  write('Введите количество членов арифметической прогрессии: '); readln(n);

  for i:=1 to n do

  begin

      write(a, ' ');

      sum:=sum+a;

      a:=a+step

  end;

  writeln('Сумма ', n, ' членов арифметической прогрессии равна ', sum)

end.

Задание 2:

1. Треугольник со сторонами a, b, c является равносторонним

program triangle;

var a,b,c:integer;

begin

  write('Введите стороны треугольника через пробел: '); readln(a,b,c);

  write((a = b) and (a = c));

end.

2. Целое число N является четным двузначным числом

program prog;

var N:integer;

begin

  write('Введите N: '); readln(N);

  write((N mod 2 = 0) and (N div 10 <> 0) and (N div 100 = 0));

end.