с информатикой класс Пользователь вводит с клавиатуры целые положительные числа, разделяемые нажатием - id1258400320230317 от Polinka80 17.03.2023 02:30

Question

Информатика: с информатикой класс Пользователь вводит с клавиатуры целые положительные числа, разделяемые нажатием клавиши ентер . Признаком конца последовательности является число 0. Напишите программу, которая выводит на экран сумму и среднее арифметическое нечётных чисел (выполнить программу с операторов goto)

Polinka80 · Accepted Answer

Const
  problems : array [0..9] of String = ('x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10','x1+5=10', 'x1+5=10', 'x1+5=10');
  answers : array [0..9] of String = ('-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5');
var
  countOfAnswers, counter: integer;
  userAnswer: String;
begin
  countOfAnswers := 0;
  for counter:=0 to 9 do
  begin
  write('Введите ответ уравнения ', problems[counter], ' : ');
  readln(userAnswer);
  if userAnswer = answers[counter] then Inc(countOfAnswers);
  end;
if countOfAnswers > 8 then writeln('Отлично')
else if countOfAnswers > 5 then writeln('Хорошо')
else writeln('Плохо');
end.

MOGZ ответил