мальчик с пальчик, карлик нос,буратино,карабас барабас,змей горыныч, царевна лягушка,
Ответ дал: Гость
1.
var n: integer; begin cls; for n: =1 to 10 do begin write('n=',sqr(n)+5,' '); end; end.
решить на паскале?
Ответ дал: Гость
моя неделя проходит загружено. половину дня я провожу в школе, потом , репетиторы, выйти на улицу, покататься на санках, поваляться в снегу времени практически а мы что-то говорим о здоровой чтобы я изменил? я бы ввёл электронные учебники и ведь это так бы время, не надо было бы писать в тетрадях уроки, набрал на компьютере и всё. оставалось бы больше свободного времени для прогулок и общения с друзьями.
Ответ дал: Гость
varn,i: integer; x0,y0,x1,y1,x2,y2,s: real; begin readln(n); s: =0; readln(x0,y0); x1: =x0; y1: =y0; for i: =2 to n do begin readln(x2,y2); s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); x1: =x2; y1: =y2; end; x2: =x0; y2: =y0; s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); writeln(s: 10: 2); end.
Другие вопросы по: Информатика
Похожие вопросы
Знаешь правильный ответ?
Надо определить закономерность и вместо точек вставить нужные числа и символы.15 б...
Популярные вопросы