Урок 9 Задача 12
Primary tabs
Есть программа:
var m,s:integer; begin writeln('Vvedite chislo M'); readln(m); s:=1; if (s = 1) then writeln('soobchenie 1'); if (s = m) then writeln('soobchenie 2'); end;-- при этом известно, что если s равно 1, то на экран должно вывестись только первое сообщение (а второе выводиться не должно), а если s не равно 1, но равно m, то второе (а первое выводиться не должно).
Но сейчас программа работает не так, исправьте это.
var m,s:integer; begin writeln('Vvedite chislo M'); readln(m); s:=1; if (s = 1) then writeln('soobchenie 1') //если условие верно, выводится первое сообщение, независимо от значения m else if (s = m) then //в ложную ветку попадает s<>1 и далее проверяется на условие s = m writeln('soobchenie 2'); //второе сообщение выводится когда одновременно s<>1 и s = m readln (); end.
Вывод в консоли:
Vvedite chislo M
1
soobchenie 1
- Log in to post comments
- 402 reads