Информатика, опубликовано 09.01.2019 16:01
, прошу
Представить число
45 в 10 степени для записи числа в памяти компьютера
Представить число -86 в 10 степени для записи числа в памяти компьютера
Ответ оставил: Гость
Program qq;
uses graphABC;
begin
setwindowsize(1200,400);
setpencolor(clblack);
setpenwidth(5);
centerwindow;
//смайлик
circle(600,200,180);
floodfill(600,200,clyellow);
circle(550,100,40);
circle(650,100,40);
floodfill(550,100,clwhite);
floodfill(650,100,clwhite);
line(550,300,650,300);
line(600,250,600,150);
//смайлик
//домик
rectangle(50,350,350,200);
floodfill(200,250,clbrown);
rectangle(125,300,275,225);
floodfill(200,250,clblue);
line(200,255,200,300);
line(125,255,275,255);
line(50,200,200,50);
line(350,200,200,50);
floodfill(200,100,clgreen);
//домик
//кораблик
line(850,250,1150,250);
line(850,250,950,350);
line(1100,350,1150,250);
line(1100,350,950,350);
line(1000,250,1000,50);
line(1000,50,1100,100);
line(1000,150,1100,100);
floodfill(1010,125,clred);
floodfill(1000,300,clorange);
//кораблик
end.
uses graphABC;
begin
setwindowsize(1200,400);
setpencolor(clblack);
setpenwidth(5);
centerwindow;
//смайлик
circle(600,200,180);
floodfill(600,200,clyellow);
circle(550,100,40);
circle(650,100,40);
floodfill(550,100,clwhite);
floodfill(650,100,clwhite);
line(550,300,650,300);
line(600,250,600,150);
//смайлик
//домик
rectangle(50,350,350,200);
floodfill(200,250,clbrown);
rectangle(125,300,275,225);
floodfill(200,250,clblue);
line(200,255,200,300);
line(125,255,275,255);
line(50,200,200,50);
line(350,200,200,50);
floodfill(200,100,clgreen);
//домик
//кораблик
line(850,250,1150,250);
line(850,250,950,350);
line(1100,350,1150,250);
line(1100,350,950,350);
line(1000,250,1000,50);
line(1000,50,1100,100);
line(1000,150,1100,100);
floodfill(1010,125,clred);
floodfill(1000,300,clorange);
//кораблик
end.
Ответ оставил: Гость
1.Program arrays;const n = 15;Var a:array [1..n] of integer; i:integer;begin for i:=1 to n do a[i]:= random(-20, 20); for i:=1 to n do begin if a[i] mod 2 = 0 then a[i]:=sqr(a[i]); end; for i:= 1 to n do write(a[i], );end.2.Program arrayss;const n = 10;Var a:array [1..n] of integer; i:integer;begin for i:=1 to n do read(a[i]); swap(a[1], a[10]); for i:= 1 to n do write(a[i], );end.
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01