Могут быть небольшие ошибки
var a: integer;
begin
readln (a);
if (a mod 2)=0 then
writeln ('да')
else
writeln ('нет');
end.
#include <iostream>
using namespace std;
int main()
{
int n,s;
for (int i=100; i<=999; i++)
{
n = i % 10;
s = n*n*n;
n = i / 10 % 10;
s = s+n*n*n;
n = i /100;
s = s+n*n*n;
if (i == s) cout << i << "\n";
}
return 0;
}
Результат:
<span>153
370
371
407</span>
#include <iostream>
#include <string>
using namespace std;
const unsigned space = 65;
int main()
{
unsigned n = 0;
cin >> n;
for (unsigned i = space; i < space + n; ++i) {
string str(i - (space - 1), (char)i);
cout << str << endl;
}
return 0;
}
обозначим счетчики переменными kp(+) и km(-), так же возьмем переменную j:integer для осуществления цикла, так же необходим сам массив пусть будет a:array[1..20] of integer, содержит 20 элементов целого типа, приступим к набору программы.
var
j,km,kp:integer;
a:array[1..20] of integer;
begin
km:=0;kp:=0; {обнулим счетчики}
randomize; {запустим службу генерирования случайных чисел}
for j:=1 to 20 do
begin
a[j]:=random(100)-50; {заполним массив случайными числами}
writeln(' a[',j,']= ',a[j]); {напечатаем его}
end;
{далее перейдем к поиску элементов}
for j := 1 to 20 do
begin
if a[j]<0 then km:=km+1;
if a[j]>0 then kp:=kp+1;
end;
write('pologitel''nix: ',kp,'otricatel''nix: ',km);
readln;
end.
Ну скажем...
1 = а
2 = б
3 = в
4 = г
и так далее.
Но можно скажем сделать так...
10000 = а
11000 = б
11100 = в
11110 = г
11111 = д
и так далее.
Шифр 11000 10000 11110 = баг
И, таким образом, ты можешь придумывать свои кодировки