<span>Стандартными компонентами среды ТР являются: рабочее поле, текстовый курсор, строка состояния, меню команд.</span>
var s: string;
i, k: integer;
begin
writeln('Enter string:');
readln(s);
k := 0;
//Вместо Y символ(думаю сможеш прицепить ввод)
for i := 1 to length(s) do if (s[i] = 'Y') then inc(k);
write('Quantity of symbol in string is equal to ', k);
readln
end.
Алгоритм выигрыша в этой игре очень простой: каждый раз надо забирать из кучки M+1 камешек. Следовательно, первым ходом надо забрать количество камешков, равное остатку от целочисленного деления N на М+1, а затем в каждый последующий ход забирать столько камешков, чтобы оставшееся их число было кратно M+1.
Ниже приведено решение на языке Borland Pascal 7.01
uses Crt;
var
N,M,k:integer;
begin
ClrScr;
Write('N,M='); Read(N,M);
k:=N mod (M+1);
Writeln(k);
ReadKey
end.
Тестовое решение:
N,M=7 4
2
<span>var a,b,c:real;
begin
a:=3;
b:=4;
c:=sqrt(a*a+b*b);
writeln('c = ',c);
end<span>.
Результат:
c = 5</span></span>
Это не шифр цезаря это Атбаш