program ml; uses crt; var x,i: integer; w,l: real; beginclrscr; readln(x); l: =x; for i: =1 to x do beginw: =w+1; l: =x/w; if frac(l) = 0 then writeln(l: 2: 0); end; readkey; end.
Ответ дал: Гость
var
i,j,s: integer;
x: array[1..8,1..8] of integer;
y: array[1..10,1..10] of integer;
begin
s: =0;
for i: =1 to 8 do
for j: =1 to 8 do
begin
readln(x[i,j]);
if i< =j then s: =s+x[i,j];
end;
writeln("сумма для x=", s);
s: =0;
for i: =1 to 10 do
for j: =1 to 10 do
begin
readln(y[i,j]);
if i< =j then s: =s+y[i,j];
end;
writeln("сумма для y=", s);
end.
Ответ дал: Гость
var
i: integer;
begin
for i: =100 to 999 do
if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)
Популярные вопросы