Які є типи запитань в режимі конструктора форм? Оберіть усі правильні відповіді.
1. З короткими відповідями
2. З варіантами відповіді
3. Упорядкування
4. Прапорці
5. Дата
6. Малюнок

не оскорбляю людей,а так же не ругаюсь с друзьями.не ругаюсь " словами".не ворую и не бью.

2048 бит : 8: 1024= 0.25 кбайт

var m,r: real;

begin

writeln('вычисление расстояния между населенными пунктами.') ; writeln('ведите исходные данные: '); writeln('масштаб карты (количество километров в одном сантиметре)  > ');

read(m); writeln('расстояние между двумя точками, изображающими населенные пункты (см)  > ');

read(r); writeln('расстояние между населенными пунктами ', m*r,' км.');

end.

var a: array[1..2,1..30] of integer; i,j: integer; begin      for i: = 1 to 30 do begin            writeln('введите номер ученика: ');             read(a[1,i]);             writeln('введите оценку: ');             read(a[2,i]);       end;             for i: = 1 to 10 do begin        writeln(i: 2,' - ');             for j: = 1 to 30              if a[1,j]=i then                        write(a[2,i],' ');       end;                   readkey; end.