<em><u>Pascal:</u></em>
var code:byte;
begin
write ('Code = ');
readln (code);
writeln (chr(pred(code)));
end.
<em><u>C++:</u></em>
#include <iostream>
using namespace std;
int main()
{
int code;
cout <<"Code: ";
cin >>code;
char ch=static_cast<char>(code);
cout <<ch <<endl;
return 0;
<span>}</span>
вот программа ее можно обернуть функцию тогда будет более функционально а так тут просто цикл и работа со строками я тебе два варианта дал сам выберишь какой лучше
var a:array[1..20] of integer; i,arf,k:integer;
begin
k:=0;
for i:=1 to 20 do
begin
a[i]:=random(10);
if (a[i]/2=a[i] div 2) or (i/2<>i div 2) then
begin arf:=arf+a[i]; inc(k); end;
end;
arf:=round(arf/k);
for i:=1 to 20 do writeln('a[',i,']= ',a[i]);
writeln('Srendee arirfm. chentix chisel u nechetnix indexov = ',arf);
readln;
end.
Я думаю что В. Ведя себя как все, ты вливаешься в круг общения.
Если в своем кругу ты ведешь себя особо вежливо, то не думай что получишь взаимную вежливость.
