Question

Дам много баллов!!! На паскале пишите Даны 20 целых чисел. Среди них найти количество четных, количество кратных 5 и количество двузначных

Answer 1

program chisla;

var a, even, krat, two,schet:integer;

begin

writeln('Введите 20 Целых чисел');

even:=0;

krat:=0;

two:=0;

schet:=0;

while schet<20 do begin

readln(a);

schet:=schet+1;

if (a mod 2 = 0) then

even:=even+1;

if (a mod 5 = 0) then

krat:=krat+1;

if (a>9) and (a<100) then

two:=two+1;

end;

writeln('Всего ',even,' четных, ',krat,' кратных пяти и ', two,' двузначных.');

end.

Answer 2

Даны 20 целых чисел. Среди них найти количество четных, количество кратных 5 и количество двузначных

Answer 3

Подсчет количества четных чисел, кратных 5 и двузначных чисел

Для решения данной задачи на языке Pascal можно использовать цикл и условные операторы. Вам потребуется переменная для подсчета количества четных чисел, переменная для подсчета количества чисел, кратных 5, и переменная для подсчета количества двузначных чисел.

Вот пример кода, который решает данную задачу:

program CountNumbers;

var
  numbers: array[1..20] of integer;
  evenCount, multipleOf5Count, twoDigitCount, i: integer;

begin
  evenCount := 0;
  multipleOf5Count := 0;
  twoDigitCount := 0;

// Введите значения для массива numbers
  writeln('Введите 20 целых чисел:');
  for i := 1 to 20 do
  begin
    write('Число ', i, ': ');
    readln(numbers[i]);
  end;

// Подсчет количества четных чисел, чисел, кратных 5, и двузначных чисел
  for i := 1 to 20 do
  begin
    if numbers[i] mod 2 = 0 then
      evenCount := evenCount + 1;

if numbers[i] mod 5 = 0 then
      multipleOf5Count := multipleOf5Count + 1;

if (numbers[i] >= 10) and (numbers[i] <= 99) then
      twoDigitCount := twoDigitCount + 1;
  end;

// Вывод результатов
  writeln('Количество четных чисел: ', evenCount);
  writeln('Количество чисел, кратных 5: ', multipleOf5Count);
  writeln('Количество двузначных чисел: ', twoDigitCount);

end.

В этом коде мы используем массив `numbers`, чтобы хранить введенные пользователем числа. Затем мы используем цикл `for` для перебора всех элементов массива и проверки каждого числа на четность, кратность 5 и двузначность. Если число удовлетворяет условию, мы увеличиваем соответствующую переменную подсчета.

После завершения цикла мы выводим результаты подсчета на экран.

Примечание: Пожалуйста, убедитесь, что ваша среда разработки поддерживает язык Pascal и правильно обрабатывает ввод и вывод данных.

Надеюсь, это поможет вам решить задачу! Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать их.