Напишите только понятно вычислить и вывести значения периметров 25 треугольников при различных значениях их сторон (а> 0, b> 0, c> 0), вводимых с клавиатуры.
begin n := 1; repeat repeat writeln(' Ведите стороны A,B,C ', n, ' - треугольника'); readln(a, b, c); until ((a > 0) and (b > 0) and (c >0)) and ((a + b) >= c); writeln('Периметр равен ',a + b + c); n := n + 1; until n > 25; end.
1. 2 Массивы объявляются тем же оператором, что и обычные переменные 2. Не корректный вопрос: индекс - это обращения к определенному элементу массива, а у самого массива индекса нет. В вариантах ответа ничего похожего на это нет. 3. 4 Массивы заполняются теми же операторами, что и обычные переменные 4. 1 Есть такой ввода в бейсике - конструкция READ DATA 5. 1 Выведется четвертый элемент массива, т.к. нумерация идет с нуля, и первый имеет номер 0, второй - 1, третий - 2, а четвертый - номер 3, который и запрашивается в выражении А(3)
var
n, a, b, c: integer;
begin
n := 1;
repeat
repeat
writeln(' Ведите стороны A,B,C ', n, ' - треугольника');
readln(a, b, c);
until ((a > 0) and (b > 0) and (c >0)) and ((a + b) >= c);
writeln('Периметр равен ',a + b + c);
n := n + 1;
until n > 25;
end.