Dim b(4,2)
for i=1 to 4 step 2
for j=1 to 2
b(i,j)=int(RND*10-8)
print b(i,j);
next j
print
next i
kol=0
for i=1 to 4 step 2
for j=1 to 2
if b(i,j) mod 3=0 then
kol=kol+1
end if
next j
next i
print kol
//Dev-C++ 4.9.9.2
//Пароль, как можно догадаться, UVAO-chan
#include <iostream>
#include <string>
using namespace std;
int main(){
string s,password;
cin>>password;
if(password!="UVAO-chan")return 0;
cin>>s;
cout<<s.length();
cin.get();
cin.get();
return 0;
}
Пример ввода:
UVAO-chan
124
Пример вывода:
3
Ответ:
program Test;
var
a: array of Integer;
n, i, c, left, right: Integer;
begin
Write ('Введите N: ');
ReadLn (n);
SetLength (a, n);
Write ('Введите элементы массива:');
for i := Low (a) to High (a) do
Read (a [i]);
c := 0;
for i := Low (a) to High (a) do begin
if i > Low (a) then
left := i - 1
else
left := High (a);
if i < High (a) then
right := i + 1
else
right := Low (a);
if a [left] = a [right] then begin
Inc (c);
Write (i + 1, ' '); //для проверки
end;
end;
WriteLn;
WriteLn ('Количество = ', c);
ReadLn; ReadLn;
end.
Нижняя цепочка - все пятёрки, то бишь 5 5 5 5 5
Про верхнюю не написано ничего, кроме того, что это не пятёрки, и все одинаковые, но их 5, то есть это 1 1 1 1 1 или 2 2 2 2 2 или 3 3 3 3 3 или 4 4 4 4 4 или 6 6 6 6 6 или 7 7 7 7 7 или 8 8 8 8 8 или 9 9 9 9 9 или 0 0 0 0 0. Если я ничего не упустил.