90 и сделаю лучшим ответом. , нужно дано целое трехзначное число x. (i) по заданному алгоритму напишите программу. алг сумма нач ввод(x) y=3x*2 вывод (y) (ii) если пользователь введет число x=9. какой ответ выдаст программа?
program r; const n=20; var mas:array [0..n,0..n] of byte; i,j,g,m,a,x1,y1,x2,y2,maxx,maxy,minx,miny:integer; begin
readln (a); for i:=1 to n do for j:=1 to m do mas[i,j]:=0;
for g:=1 to a do begin Readln (x1,y1,x2,y2); if x1>x2 then begin maxX:=x1;minX:=x2;end else begin maxX:=x2; minX:=x1; end; if y1>y2 then begin maxY:=y1;minY:=y2;end else begin maxY:=y2; minY:=y1;end;
m:=0; for i:=miny+1 to maxy do for j:=minx+1 to maxx do if mas[i,j]=0 then begin mas [i,j]:=1;m:=m+1;end; for i:=1 to n do begin for j:=1 to n do write (mas[i,j]); writeln; end; writeln (m);
Задачки такого типа не имеют однозначного решения, можно предложить нескольео вариантов и все они будут правильные. Слишком мало членов дано.
Вот мои версии.
а. 1; 3; 6; 4; 11; 5; 16; 6 (на нечётных местах всё время +5, на чётных +1)
б. 9; 7; 10; 4; 11; 1; 12; -2; ... (на нечётных +1, на чётных -3)
в. 3; 2; 1; 6; 5; 4; 9; 8; 7; 12; 11; 10... (тройки n;n-1;n-2; первое число тройки - последовательные числа, кратные 3)
Могу предложить ещё несколько ДРУГИХ вариантов продолжения последовательностей и все они, повторюсь, будут ПРАВИЛЬНЫМИ.
Одно только замечание: ВСЕГДА нужно указывать алгоритм или формулу, по которой последовательность строится(продолжается).
program r;
const n=20;
var mas:array [0..n,0..n] of byte;
i,j,g,m,a,x1,y1,x2,y2,maxx,maxy,minx,miny:integer;
begin
readln (a);
for i:=1 to n do
for j:=1 to m do
mas[i,j]:=0;
for g:=1 to a do
begin
Readln (x1,y1,x2,y2);
if x1>x2 then begin maxX:=x1;minX:=x2;end
else begin maxX:=x2; minX:=x1; end;
if y1>y2 then begin maxY:=y1;minY:=y2;end
else begin maxY:=y2; minY:=y1;end;
m:=0;
for i:=miny+1 to maxy do
for j:=minx+1 to maxx do
if mas[i,j]=0 then begin mas [i,j]:=1;m:=m+1;end;
for i:=1 to n do
begin
for j:=1 to n do
write (mas[i,j]);
writeln;
end;
writeln (m);
end;
end.