Задача 12 Урок 9
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 s, m: integer; begin writeln('Введите числа s, m '); readln(s, m); if (s = 1) then writeln('сообщение 1') else if (s <> 1) and (s = m) then writeln('сообщение 2'); readln(); end.
Вывод консоли:
Введите числа s, m 1 3 сообщение 1
Введите числа s, m 3 3 сообщение 2
- Log in to post comments
- 608 reads
vedro-compota
Sun, 10/16/2022 - 16:41
Permalink
if (s = 1) then
-- есть лишнее условие
_____________
матфак вгу и остальная классика =)
Konstantin
Mon, 10/17/2022 - 18:52
Permalink
var s, m: integer;
vedro-compota
Mon, 10/17/2022 - 19:56
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)