Question

Прошу помощи с 3 задачками. Они весьма легкие, но сейчас уже не имею не возможности, не сил их выполнять, ибо комп вообще весьма далеко. Буду благодарен за решения! Программа в Pascale 1. Дано N целых чисел. Найти среднее арифметическое. 2. Вывести первых N целых чисел кратных 7. 3. Вводится последовательность чисел пока не введен 0. Найти количество четных чисел в наборе.

Answer 1

У меня тоже комп далеко, поэтому пишу программы прямо на телефоне! ;-) И вот, что получилось (все результаты проверены):

program First;
type
arr = array of integer;
var
a : arr;
i, p, l : integer;
f : real;

begin
writeln('Вводите числа (0 - окончание ввода)');
i:=1;
l :=0;
repeat
readln(p);
if p=0 then break;
setLength(a, i);
a[i-1]:=p;
i:=i+1;
l:=l+1;
until p=0;
p:=0;

for i:=0 to l-1 do p:=p+a[i];
f:=p/l;

writeln(f:5:2);
end.


program Second;
var
p, i : integer;

begin
write('Введите количество чисел: ');
readln(p);
for i:=1 to p do write(7*i, ' ');
end.


program Third;
var
count, p : integer;

begin
writeln('Вводите числа');
count :=0;
repeat
readln(p);
if p=0 then break;
if (p mod 2 = 0) then count:=count+1;
until p=0;
writeln ('Было введено ', count, ' чётных чисел.');
end.

Answer 2

Конечно, я могу помочь вам с решением этих задач на языке Pascal. Вот решения:

1. Найти среднее арифметическое N целых чисел:

pascalCopy code
program Average;
var
  N, i, number, sum: integer;
  average: real;
begin
  write('Введите количество чисел N: ');
  readln(N);
  
  sum := 0;
  
  for i := 1 to N do
  begin
    write('Введите число: ');
    readln(number);
    sum := sum + number;
  end;
  
  average := sum / N;
  
  writeln('Среднее арифметическое:', average);
end.

2. Вывести первые N целых чисел, кратных 7:

pascalCopy code
program MultiplesOfSeven;
var
  N, count, number: integer;
begin
  write('Введите количество чисел N: ');
  readln(N);
  
  count := 0;
  number := 1;
  
  while count < N do
  begin
    if number mod 7 = 0 then
    begin
      writeln(number);
      count := count + 1;
    end;
    
    number := number + 1;
  end;
end.

3. Найти количество четных чисел в последовательности до ввода числа 0:

pascalCopy code
program CountEvenNumbers;
var
  number, count: integer;
begin
  count := 0;
  
  repeat
    write('Введите число (0 - для завершения): ');
    readln(number);
    
    if number mod 2 = 0 then
      count := count + 1;
  until number = 0;
  
  writeln('Количество четных чисел:', count);
end.

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