myans - это ответ который ввожу Я. ( число)
ans - это верный ответ.
Нужно их сравнить, если myans= ans ИЛИ myans <на1 ИЛИ >на1 = Вывести "Правильно"
В других случаях: <на2 ИЛИ >на2 вывести "Неправильно".
Код
Program prog1;
Var num1, num2, myans, ans:real;
i:integer;
begin
for i:=1 to 100 do begin
Write('a: ');
Read(num1);
Write('b: ');
Read(num2);
ans:=num1/(num1+num2)*100;
Writeln('-' ); read(myans);
writeln(ans);
end;
end.
Var num1, num2, myans, ans:real;
i:integer;
begin
for i:=1 to 100 do begin
Write('a: ');
Read(num1);
Write('b: ');
Read(num2);
ans:=num1/(num1+num2)*100;
Writeln('-' ); read(myans);
writeln(ans);
end;
end.
Я пробовал сделать так но у меня не вышло..
Спойлер (Показать/Скрыть)
