Question

Составьте программу на языке Паскаль найдите количество чисел меньше 3 из четырёх целых чисел заранее спасибо

Answer 1

Ответ:

Объяснение:

var a,i,s:integer;

begin write('введите n - '); readln(n);

for i:= 1 to n do begin

write('введите a - ');readln(a);

if a < 3 then s := s + 1;

end;

write('s = ',s);

end.

Answer 2

К сожалению, я не могу выполнить программы напрямую, так как моя функциональность ограничивается текстовыми ответами. Однако я могу предоставить вам пример программы на языке Паскаль, которая будет находить количество чисел, меньше 3, из четырех целых чисел.

pascalCopy code
program CountNumbersLessThanThree;

var
  num1, num2, num3, num4: Integer;
  count: Integer;

begin
  writeln('Введите четыре целых числа:');
  readln(num1, num2, num3, num4);

  count := 0;

  if num1 < 3 then
    count := count + 1;

  if num2 < 3 then
    count := count + 1;

  if num3 < 3 then
    count := count + 1;

  if num4 < 3 then
    count := count + 1;

  writeln('Количество чисел, меньше 3: ', count);

  readln; // Чтобы окно консоли не закрывалось сразу после выполнения программы
end.

Скопируйте этот код в среду разработки Pascal (например, Free Pascal) и запустите программу. Она запросит у вас ввод четырех целых чисел и выведет количество чисел, которые меньше 3.