Добрый день. 1. придерживаться формату 2. наименование папки, сделать так, чтоб не повторялось (нет одинаковых наименований) 3. написать точное название папки, и не использовать дроби, кавычки.
Спасибо
Ответ дал: Гость
№1. программа на паскале
program xxx;
var n : integer;
x : array[1..10] of integer;
begin
for n: =1 to 10 do
x[n]: =sqr(n) + 5;
wreteln('последовательность х: ')
for n: =1 to 10 do
write(x[i]);
readln
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.
Популярные вопросы