Задача 10 Урок 9

Primary tabs

Submitted by jl8qy9kd_pro on Tue, 07/20/2021 - 23:44

Forums:

http://fkn.ktu10.com/?q=node/8539

Есть программа:

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:=4;
    if (s = 1) then
       writeln('soobchenie 1');
    if ((s = m) and (s <> 1)) then
        writeln('soobchenie 2');
end.
  • Log in to post comments
  • 3286 reads
vedro-compota's picture

vedro-compota

Sun, 07/25/2021 - 13:13

добавьте вариант решения с else

_____________
матфак вгу и остальная классика =)

jl8qy9kd_pro

Mon, 07/26/2021 - 14:57 

var m, s: integer;
begin
  writeln('Vvedite chislo M');
  readln(m);
  s:=4;
  if (s = 1) then
    writeln('soobchenie 1');
  else 
  if ((s = m) and (s <> 1)) then
    writeln('soobchenie 2');
end.
vedro-compota's picture

vedro-compota

Tue, 07/27/2021 - 18:56

есть лишнее логическое подвыражение

_____________
матфак вгу и остальная классика =)

jl8qy9kd_pro

Wed, 07/28/2021 - 11:22 

var m, s: integer;
begin
  writeln('Vvedite chislo M');
  readln(m);
  s:=4;
  if (s = 1) then
    writeln('soobchenie 1')
  else
  if (s = m) then
    writeln('soobchenie 2');
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 08/01/2021 - 12:53

решение засчитано

_____________
матфак вгу и остальная классика =)