Категория
Информатика, опубликовано 07.03.2019 06:30

13. рассчитать таблицу значений y=24x³-17 для х=2,5,8,11,14. в паскале программу.

Ответы

Ответ
Ответ оставил: Гость
Вот  так: program lllll; var y,i,x: integer; begin x: =2; for i: =1 to 5 do begin y: =24*(x*x*x)-17; x: =x+3; writeln('y= ', y, ' при x=', x); end; end.
Ответ
Ответ оставил: Гость
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.
Ответ
Ответ оставил: Гость
Потому что не профисиона эго делал
Ответ
Ответ оставил: Гость
Var
a:array[1..100] of integer;
i, n, o, s: integer;
begin
s:=0;
read(n); //считывание кол-ва учеников//
for i:=1 to n do  begin
read(o); s:=s+o;  end;
writeln((s/n):17:1);
end.  урааааааааааааааааааааа


Другие вопросы по информатике

Вопрос
Информатика, опубликовано 09.01.2019 16:01
✅ Ответов: 1 на вопрос по информатике: 13. рассчитать таблицу значений y=24x³-17 для х=2,5,8,11,14. в паскале программу.... ты найдешь на сайте. Также ты можешь добавить свой вариант ответа, если считаешь, что он не верен или твой ответ более полный. Пожалуйста, добавляй только правильные ответы.
Вконтакте Youtube