Срочно! нужно решение 2 и 5 задач

+ 0 -

Юлічка06

20 февр. 2017 г., 20:24:33 (7 лет назад)

var
  n: integer;
  s: string;

begin
  Write('Введите число в диапазоне [-999;999] -> ');
  Readln(n);
  if (abs(n) > 999) then Writeln('Число вне диапазона')
  else
  if n = 0 then s := 'Нулевое число'
  else begin
    if n < 0 then s := 'Отрицательное ' else s := 'Положительное ';
    n := abs(n);
    if n > 99 then s := s + 'трехзначное число'
        else
    if n < 10 then s := s + 'однозначное число'
    else s := s + 'двухзначное число'
  end;
  Writeln(s)
end.

Тестовое решение:
Введите число в диапазоне [-999;999] -> -47
Отрицательное двухзначное число

var
  k, n, m, v, i: integer;

begin
  Write('Введите количество автомобилей: ');
  Readln(n);
  Write('Введите скоростной режим, км/час: ');
  Readln(k);
  Writeln('* Вводите скорости автомобилей через пробел или Enter *');
  m := 0;
  for i := 1 to n do
  begin
    Read(v);
    if v > k then m := m + 1
  end;
  Writeln;
  Writeln('Количество автомобилей, превысивших скоростной режим равно ', m)
end.

Тестовое решение:
Введите количество автомобилей: 18
Введите скоростной режим, км/час: 60
* Вводите скорости автомобилей через пробел или Enter *
47 54 63 70 58 49 47 61 83 58
52 60 57 64 62 59 74 47

Количество автомобилей, превысивших скоростной режим равно 7