Впрограмме «: =» обозначает оператор присваивания, знаки «+», «-», «*» и «/» — соответственно - id132431420220428 от timca2014 28.04.2022 04:58

Question

Информатика: Впро­грам­ме «: =» обо­зна­ча­ет опе­ра­тор присваивания, знаки «+», «-», «*» и «/» — соответственно опе­ра­ции сложения, вычитания, умно­же­ния и деления. пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ют пра­ви­лам арифметики. опре­де­ли­те зна­че­ние пе­ре­мен­ной a после вы­пол­не­ния алгоритма: а : = 8b : = 2b : = a/2*ba : = 2*а + 3*bв от­ве­те ука­жи­те одно целое число — значение пе­ре­мен­н​

timca2014 · 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 ответил