writeln('indexi elementov kotorie bolshe prediduschego: ');
writeln;
for i: =2 to 10 do begin
if a[i]> a[i-1] then write(i,', ');
end;
for i: =2 to 10 do begin
if ((a[i]> =0) and (a[i-1]> =0)) or ((a[i]< 0) and (a[i-1]< 0)) then p: =p+1;
end;
writeln;
if p> 0 then writeln('masiv imeet pari sosednih elementov s odnakovimi znakami') else writeln('masiv ne imeet pari sosednih elementov s odnakovimi znakami');
readln(s);
end.
Ответ дал: Гость
program risovalka;
uses crt,graphabc;
var xc,yc,r1,r2,rc,ro,n,i,x,y: integer;
a: real;
begin repeatwrite('ykashi shislo otverstii ot 5 do 10 n=');
read(n);
until n in [5..10];
clrscr; hidecursor;
xc: =windowwidth div 2;
yc: =windowheight div 2;
r1: =40;
r2: =120;
rc: =100; ro: =30;
a: =2*pi/n;
circle(xc,yc,r2);
circle(xc,yc,r1);
for i: =1 to n do begin x: =xc+round(rc*cos(a*i));
y: =yc-round(rc*sin(a*i));
circle(x,y,ro);
end.
Ответ дал: Гость
в условии не указано но для кодирования используется фраза "в памяти " при этом для нахождения кода шифрованной буквы нужно к коду исходной буквы прибавить код буквы из предложения к первой букве прибавляем код первой буквы предложения ко второй код второй итд т.
а для расшифровки эти коды нужно вычитать, получаем
Популярные вопросы