Информатика, вопрос опубликован 12.03.2019 20:10 Апельсинчик03

Как создать такой прайс лист в вк​

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

верификация модели

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

program z1; vari,j,m,k,z,x,l: integer; beginreadln(m); for i: =0 to m do begin z: =1; if i=0 then z: =1 else beginx: =i; while x< > 0 do beginz: =z*4; x: =x-1; end; end; if ((z< m) and (z*4> m)) then writeln(i); if z=m then writeln(i-1); end; end.

 

program z2; vari,j,n,k,z,x,l: integer; beginreadln(n); for i: =0 to n do begin z: =1; if i=0 then z: =1 else beginx: =i; while x< > 0 do beginz: =z*2; x: =x-1; end; end; if ((z> n) and (z/2< n)) then writeln(i); if z=n then writeln(i+1); end; end.

 

program z3; vari,j,n,k,z,x,s: integer; beginreadln(n); s: =0; for i: =1 to n do begin z: =1; for j: =i to 2*i doz: =z*j; s: =s+z; end; writeln(s); end.

 

время 2 ночи 

пора спать ) 

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

правду сказал лакей. горничная виновата. на кол ее

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

program dgh;

var

a,b: real;

i: integer;

begin

b: =0;

for i: =1 to 5 do

begin

write ('-> '); readln (a);

b: =b+a;

end;

write('среднее арифметическое введенной последовательности: ');

write (b/5: 0: 2);

readln;

end.

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