Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит восьми: первое число – номер вертикали, второе – номер горизонтали. Даны натуральные числа k, l, m, n, каждое из которых не превосходит восьми. Требуется: Выяснить, являются ли поля (k,l) и (m,n) полями одного цвета решить используя Scratch. Я уже 2 день не могу решить(
Не знаю, как Вы планируете вводить текст, я его просто присвоил в программе для контрольного прогона.
Sub ()
Dim s As Stringr
s = "THIS IS THE GREATEST TEST STRING AND ALL K/G CHARACTERS NEED TO BE KILLED"
DeleteChar s, "G"
DeleteChar s, "K"
MsgBox s
End Sub
Sub DeleteChar(ByRef s As String, c As String)
'Удаляем из строки s символ c
Dim k As Integer
Do
k = InStr(s, c)
If k > 0 Then s = Left(s, k - 1) + Right(s, Len(s) - k)
Loop While k > 0
End Sub
Тестовое решение:
THIS IS THE REATEST TEST STRIN AND ALL / CHARACTERS NEED TO BE ILLED
function F() : integer;
var
k,i : integer;
begin
k := 0;
for i := 100 to 999 do
if (i mod 13 = 0) and (i mod 100 <> 3) then
k := k +1;
Result := k;
end;
begin
writeln (f());
end.
const
n = 30;
var
a : array [1..n] of integer;
i,b : integer;
r : boolean;
begin
readln (b);
i := 1;
r := false;
While (not r) and (i <= n) do
begin
if a[i] = b then
r := true;
i := i +1;
end;
if r then
writeln ('Есть')
else
writeln ('Нет');
end.