Написать программу, которая получает два целых числа A и B (0 < A < B) и выводит все натуральные числа в интервале от A до B.

259

290

Посмотреть ответы 2

Ответы на вопрос:

milka876

Информатика

4,5(99 оценок)

var a,b,c:integer;

begin

writeln('Введите 2 целых числа');

readln(a,b);

for c:=a to b do

begin

writeln(c,'*',c,'=',sqr(c));

end;

end.

Bonya97

Информатика

4,6(41 оценок)

Условие: Опишите запись с вариантами.

Каждая запись описывает одну из геометрических фигур: круг, квадрат, прямоугольник, треугольник.

Фиксированная часть записи содержит поля: название фигуры (имя поля –Name), цвет фигуры (Color), площадь (Sq) и периметр (Lsum).

Вариативная часть записи (Figure) зависит от типа фигуры.

Для круга необходимо задать радиус окружности.

Для прямоугольника вариативную часть должна задавать длины двух сторон прямоугольника.

Для квадрата вариативная часть должна задавать длину стороны квадрата.

Для треугольника необходимо задать длины трех сторон треугольника.

Разработать программу, в которой формируется массив записей, содержащий описание двух кругов, двух прямоугольников, трех квадратов, одного треугольника разного цвета.

Для каждой из фигур вычислить периметр и площадь по соответствующей формуле:

- для круга: S=∏*R2 , P=2*∏*R;

- для квадрата: S=a2 , P=4*a;

- для прямоугольника: S=a*b , P=2(a+b);

- для треугольника: P=a+b+c; p=P/2;

Вычисленное значение занести в соответствующее поле.

В программе определить:

1. Количество фигур красного цвета.

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

3. Фигуру с максимальной площадью. Вывести площадь фигуры, ее название и размеры.

Наработка