3. Приведите пример информационного процесса среди животных. 4. Обработать информацию 1 Квадрат, круг, ромб и треугольник вырезанных свиней, красной зелёной бумаги. Известно, ХК белый и не зелёный: синяя фигура ЛІ» КІТ" мес. 1, у м» м >> ут красной гигурой: треугольник стни хит кви драт лект между треугольником »*, Т. ертурой. Дайте ответы на следующие вопросы. 1 } из бумаги какого Цвета вырезанк ва хра"r“? 2) Из бумаги какого цвета вырезан круг? 3) Из бумаги какого цвета вырезан ромб? Из бумаги какого цвета вырезан треугольник? ХЕЛЛП

// 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

// PascalABC.Net 3.0, сборка 1088
const
  n=30;
var
  a:array[1..n] of integer;
  i,k:integer;
begin
  Randomize;
  Writeln('*** Исходный массив ***');
  k:=0;
  for i:=1 to n do begin
    a[i]:=Random(1001);
    Write(a[i],' ');
    if (a[i] mod 3 = 0) and (a[i] mod 10 = 1) then Inc(k)
  end;
  Writeln;
  Writeln('Количество найденных элементов равно ',k)
end.

Тестовое решение:
*** Исходный массив ***
503 187 764 452 351 819 339 940 681 369 938 874 639 212 633 825 983 830 121 801 889 36 479 14 357 382 631 8 402 61
Количество найденных элементов равно 3