Тема: Задача "Сходинки"
Мова програмування - Pascal
Середовище - PascalABC.NET
Ось умова задачі - https://www.e-olymp.com/uk/problems/7669
Ось мій код:
var n,m:integer;
q,a:char;
f1,f2:text;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
rewrite(f2);
readln(f1,n,m,q,a);
if (m+2)<=n then
begin
if a='S'then writeln(f2,m+2) else writeln(f2,m+1);
end else
begin
writeln(f2,m);
end;
close(f1);
close(f2);
end.Проблема в тому, що я не можу зрозуміти, чому мій код не проходить на 100%
Chemist-i: Використовуйте теґ code, поважайте тих, хто читає.
