Урок 9 Задание 13
Primary tabs
Есть программа:
var z,s:integer; f:boolean; begin readln(z); f := z > 5; s:=1; if (z=s) and (f=false) then begin writeln();// делаем перенос строки z:=0; s:=s+1;//но увеличиваем кол-во строк end; if (z=s) and (f=true) then begin writeln(); // делаем перенос строки z:=0; s:=s-1;//но уменьшаем кол-во строк end; end.-- при этом известно, что если s равно 1, то на экран должно вывестись только первое сообщение (а второе выводиться не должно), а если s не равно 1, но равно m, то второе (а первое выводиться не должно).
Но сейчас программа работает не так, исправьте это.
var z,s:integer; f:boolean; begin readln(z); f := z > 5; s:=1; if (z=s) then begin writeln(); z:=0; if (f=false) then s:=s+1 else s:=s-1; end; end.
- Log in to post comments
- 486 reads
vedro-compota
Wed, 01/04/2023 - 17:22
Permalink
засчитано
засчитано, но лучше использовать not, чем сравнивать с false
_____________
матфак вгу и остальная классика =)