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

Primary tabs

Submitted by studentmedic on Wed, 05/11/2022 - 10:37

Forums:

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

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

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);
  
  if (s = 1) then
    writeln('soobchenie 1');
  else
    writeln('soobchenie 2');
end;
  • Log in to post comments
  • 729 reads
vedro-compota's picture

vedro-compota

Wed, 05/11/2022 - 18:30

'soobchenie 2' должно выводить только если (s = m)

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

studentmedic

Fri, 05/13/2022 - 19:32

Исправил 

var m,s:integer;
begin
  writeln('Vvedite chislo m');
  readln(m);
  writeln('Vvedite chislo s');
  readln(s);

  if (s = 1) then
    writeln('soobchenie 1')
  else
    if (s = m) then
      writeln('soobchenie 2');

end;
vedro-compota's picture

vedro-compota

Wed, 05/18/2022 - 20:15

засчитано

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