Question

Программа запрашивает 4 числа и проверяет, сколько в них равны 10.PascalABC

Answer 1

var

   i, kol, ch: longint;

begin

   kol := 0;

   for i := 1 to 4 do  

   begin

       readln(ch);

       if ch = 10 then inc(kol);

   end;

   writeln('Ответ: ', kol);

end.

Answer 2

Программа, которая запрашивает 4 числа и проверяет, сколько в них равны 10, может быть написана на языке PascalABC следующим образом:

var a, b, c, d, count: integer;
begin
  writeln('Введите 4 числа:');
  readln(a, b, c, d);
  count := 0;
  if a = 10 then count := count + 1;
  if b = 10 then count := count + 1;
  if c = 10 then count := count + 1;
  if d = 10 then count := count + 1;
  writeln('Количество чисел, равных 10, равно ', count);
end.

Эта программа объявляет пять целочисленных переменных: `a`, `b`, `c`, `d` и `count`. Переменная `count` будет хранить количество чисел, равных 10. Программа выводит на экран сообщение 'Введите 4 числа:' и считывает с клавиатуры четыре значения, которые присваиваются переменным `a`, `b`, `c` и `d`. Затем программа проверяет каждую из этих переменных на равенство 10 с помощью оператора `if`. Если условие истинно, то переменная `count` увеличивается на единицу. В конце программы выводится на экран сообщение 'Количество чисел, равных 10, равно ' и значение переменной `count`.

Надеюсь, это ответ подробный и понятный. Если вы хотите узнать больше о языке PascalABC, вы можете посетить [официальный сайт] или [учебник]. Также вы можете посмотреть другие примеры программ на PascalABC в интернете .