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

Primary tabs

Submitted by nglag on Thu, 07/08/2021 - 18:13

Forums:

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

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, то второе (а первое выводиться не должно). Но сейчас программа работает не так, исправьте это.

Ссылка

Попытка решения (вроде работает :-) ):

program U9z10;

   var m,s:integer;

begin
    writeln('Vvedite chislo M');
    readln(m);
    s:=1;
    if (s = 1)  then
        writeln('soobchenie 1')
    else  if (s <> 1) and (s = m) then
        writeln('soobchenie 2');
end.
  • Log in to post comments
  • 2275 reads
vedro-compota's picture

vedro-compota

Thu, 07/08/2021 - 18:55 

else  if (s <> 1) and (s = m)

-- тут есть лишняя проверка, напишите какая и почему

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

nglag

Thu, 07/08/2021 - 19:18

Не могу понять: Если убираю условие:

(s не равно 1)

или условие:

(s = m)

вместо требуемого вывода:

'soobchenie 2'

выводит: soobchenie 1'

vedro-compota's picture

vedro-compota

Sun, 07/11/2021 - 13:50

уточните вопрос, приведите цитату кода, который не работает

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

nglag

Sun, 07/11/2021 - 18:30 

program U9z10;

   var m,s:integer;

begin
    writeln('Vvedite chislo M');
    readln(m);
    s:=1;

        if (s = 1)  then
           writeln('soobchenie 1')

        else  if (s = m) then
            writeln('soobchenie 2');
end.
vedro-compota's picture

vedro-compota

Thu, 07/15/2021 - 19:39

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

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