Информатика, вопрос опубликован 12.03.2019 20:10 ivantsovvladp0umee

Составить блок-схему на выражение a=b*b.

Ответы
Ответ добавил: Гость

ответ:

program matrica;

const k=10;

type vector=array[1..k]o byte; masiv=aray[1..k] o vector;

var b: masiv;

procedure vved(n: byte; var a masiv);

var i,j: byte;

begin

randomize;

for i: =1 to n do

for j: =1 to n do

a[i,j]: =0;

for j: =round(n/2) to n do

for i: =n-j+1 to j do

a[i,j]: =random(255);

end;

proceure vuvid(n: byte; : masiv);

var i,j: byte;

begin

for i: =1 to   do

begin

for j: =1 to n do

write(a[i,j]: 5);

riteln;

end;

end;

procedure rahnok(n: byte; a: masiv);

var i,j: byte; s,l: byte;

begin

l: =0;

for j: =1 to round(n/2) do

for i: =j to (n-j+1) do

if (a[i,j] mod 2=0) then l: =l+1;

writeln('kilkist=' l);

подробнее - на -

объяснение:

Ответ добавил: Гость

после выключения компьютера оперативная памят стерается, внешняя нет.

оперативная быстрее работает

Ответ добавил: Гость

а×a+b.ок если неправильно извини.ок?

Больше вопросов по информатике