Дана последовательность натуральных чисел, оканчивающаяся числом 0. Определить, есть ли в последовательности хотя бы одна пара одинаковых "соседних" чисел. В случае положительного ответа определить порядковые номера чисел первой из таких пар
// PascalABC.Net procedure RectangleSquare; var a,b:double; begin Write('Введите через пробел длины сторон прямоугольника: '); Read(a,b); Writeln('Площадь прямоугоьника равна ',a*b) end;
var i:byte; begin for i:=1 to 3 do RectangleSquare end.
Тестовое решение: Введите через пробел длины сторон прямоугольника: 3 7 Площадь прямоугоьника равна 21 Введите через пробел длины сторон прямоугольника: 12.4 15.8 Площадь прямоугоьника равна 195.92 Введите через пробел длины сторон прямоугольника: 14 12.5 Площадь прямоугоьника равна 175
var A:array[1..20] of integer;
i,k,min,n:integer;
begin
min:=1000000000; // прощу прощение за такое )
for i:=1 to 20 do A[i]:=random(9); // заполняем массив
for i:=1 to high(A) do // находим минимальное нечётное, запоминаем его номер
if (A[i] < min) and (A[i] mod 2 <> 0) then begin
n:=i; min:=A[i];
end;
for i:=1 to 20 do write(A[i]:3); // Выводит весь массив
writeln(); // просто перевод на новую строку для красоты
writeln('Minimum: ',min,' Ego nomer: ',n); // выдаём минимальное и его номер
end.
procedure RectangleSquare;
var
a,b:double;
begin
Write('Введите через пробел длины сторон прямоугольника: '); Read(a,b);
Writeln('Площадь прямоугоьника равна ',a*b)
end;
var
i:byte;
begin
for i:=1 to 3 do RectangleSquare
end.
Тестовое решение:
Введите через пробел длины сторон прямоугольника: 3 7
Площадь прямоугоьника равна 21
Введите через пробел длины сторон прямоугольника: 12.4 15.8
Площадь прямоугоьника равна 195.92
Введите через пробел длины сторон прямоугольника: 14 12.5
Площадь прямоугоьника равна 175