Написать программу в формате "Паскаль", которая генерируется случайное трехзначное число...

Question

Написать программу в формате "Паскаль", которая генерируется случайное трехзначное число и подсчитает количество цифр в нем равных 4 и 5.

Очень срочно!
Помогите, пожалуйста!

Comments

Хорошо, спасибо огромное

Answer 1

// PascalABC.NET 3.2, сборка 1387 от 17.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  randomize;
  var s:=Random(100,999).ToString;
  Writeln('Исходное число ',s);
  var k4:=0;
  var k5:=0;
  for var i:=1 to s.Length do
  case s[i] of
  '4':k4+=1;
  '5':k5+=1
  end;
  Writeln('Четверок в числе- ',k4,', пятерок- ',k5)
end.

Пример
Исходное число 954
Четверок в числе- 1, пятерок- 1

Comments

Огромное спасибо!!!