Question

Ребята помогите(не срочно) Информатика паскаль abc Хочу чтобы вот эта штука повторялась когда if<>10Что написать? WriteLn ('1. 5+5=?');Readln(a);If a=10 then writeln('МОЛОДЕЦ');If a<>10 then writeln ('НЕПРАВИЛЬНО'); и дальше хочу чтобы нужно было еще раз былоReadln(a)

Answer 1

Program test;
var  a: integer;
begin 
writeln('5+5= ?'); 
while (a <> 10) do   begin
readln(a);
if (a <> 10) then writeln('Неправильно!');
if (a = 10) then writeln('Молодец!');
end;
end.

Answer 2

В вашем коде уже присутствует условие `if a <> 10`, которое проверяет, не равно ли значение переменной `a` 10. Если вы хотите, чтобы эта штука повторялась, вы можете использовать цикл. Например, цикл `while`:

program Main;

var
  a: Integer;

begin
  repeat
    WriteLn('1 + 5 = ?');
    Readln(a);
    
    if a = 10 then
      WriteLn('МОЛОДЕЦ')
    else
      WriteLn('НЕПРАВИЛЬНО');

until a = 10;  // Повторять, пока a не станет равным 10
end.

В этом примере программа будет продолжать задавать вопрос, пока введенное значение переменной `a` не станет равным 10. Когда пользователь вводит 10, программа выводит "МОЛОДЕЦ", и цикл завершается.

Если вы хотите повторять вопрос только в случае неправильного ответа, вы можете использовать цикл `while` с условием `a <> 10`:

program Main;

var
  a: Integer;

begin
  while a <> 10 do
  begin
    WriteLn('1 + 5 = ?');
    Readln(a);
    
    if a = 10 then
      WriteLn('МОЛОДЕЦ')
    else
      WriteLn('НЕПРАВИЛЬНО');
  end;
end.

В этом случае программа будет продолжать задавать вопрос, пока введенное значение `a` не станет равным 10.