Сообщение на тему хронения и передачи информации в компьютере

#include <iostream>

#include <conio.h>

#include <Windows.h>

using namespace std;

int main()

{

SetConsoleOutputCP(1251);

SetConsoleCP(1251);

int l = 2, k = 5, lz = 0, kz = 0, sum = 0;

char s[100];

puts(«Введіть ваше секретне повідомлення:»);

gets_s(s,100);

for (int I = 0; I < strlen(s); i++)

{

if (s[i] == ‘а’ || s[i] == ‘е’ || s[i] == ‘и’ || s[i] == ‘і’ || s[i]

== ‘о’ || s[i] == ‘у’ || s[i] == ‘А’ || s[i] == ‘Е’ || s[i] == ‘И’ || s[i] == ‘І’

|| s[i] == ‘О’ || s[i] == ‘У’)

kz++;

if (kz == k)

{

s[i] = ‘a’;

kz = 0;

sum += 1;

}

if (s[i] == ‘б’ || s[i] == ‘в’ || s[i] == ‘г’ || s[i] == ‘д’ || s[i]

== ‘ж’ || s[i] == ‘з’ || s[i] == ‘к’ || s[i] == ‘л’ || s[i] == ‘м’ || s[i] == ‘н’

|| s[i] == ‘п’ || s[i] == ‘р’ || s[i] == ‘с’ || s[i] == ‘т’ || s[i] == ‘ф’ || s[i]

== ‘х’ || s[i] == ‘ц’ || s[i] == ‘ч’ || s[i] == ‘ш’ || s[i] == ‘щ’ || s[i] == ‘Б’

|| s[i] == ‘В’ || s[i] == ‘Г’ || s[i] == ‘Д’ || s[i] == ‘Ж’ || s[i] == ‘З’ || s[i]

== ‘К’ || s[i] == ‘Л’ || s[i] == ‘М’ || s[i] == ‘Н’ || s[i] == ‘П’ || s[i] == ‘Р’

|| s[i] == ‘С’ || s[i] == ‘Т’ || s[i] == ‘Ф’ || s[i] == ‘Х’ || s[i] == ‘Ц’ || s[i]

== ‘Ч’ || s[i] == ‘Ш’ || s[i] == ‘Щ’)

lz++;

if (l == lz)

{

s[i] = ‘y’;

lz = 0;

sum += 10;

}

}

puts(“Ваше розшифроване повідомлення:”);

puts(s);

cout << «Вартість подарунку становить: « << sum << «грн.» << endl;

return 0;

}

Объяснение:

Це на мові C++ можеш звідси щось взяти у свій код.

var

 a:array of integer;

 i,n,count:integer;

function Ss(m:integer):boolean;

 var

   sum:integer;

 begin

   sum:=0;

   repeat

     sum:=sum+ m mod 10;

     m:=m div 10;

   until m=0;

   if sum mod 2 = 0 then

     Ss:=true  

       else Ss:=false;

 end;

begin

 write('Размерность массива: '); readln(n);

 setlength(a,n); dec(n);

 count:=0;

 for i:=0 to n do

   begin

     a[i]:=random(401)-200;

     if Ss(a[i]) then

       inc(count);      

     write(a[i]:5);

   end;

 writeln;

 writeln('Кол-во: ',count);

end.