Запишите сведения о стандартах мониторов, разработанных для предотвращения заболеваний, возникающих при длительной работе за компьютером ( составьте сравнительную таблицу)
Var n,i,a:integer; Begin Write('Введите число '); Readln(n); if (n mod 2) = 0 then n:=n+1; For i:= 1 to 5 do Begin a:=a+n; n:=n+2; End; Write(a,' - сумма пяти нечётных чисел'); End.
Отвечал уже. Неправильно поставлен вопрос. Ткань уже купили еще до указа, и длина куска в метрах уже не изменится, несмотря ни на какие указы. Изменилась длина самой сажени в метрах как меры длины. 1 сажень = 3 аршина, значит 5 саженей и 3 аршина = 6 саженей. До указа 6 саженей = 6*2,16 = 12,96 м После указа 6 саженей = 6*2,1336 = 12,8016 м 6 саженей стали короче на 0,1584 м. А кусок ткани в 6 старых саженей стал 12,96 / 2,1336 = 6,074 новых саженей.
n,i,a:integer;
Begin
Write('Введите число ');
Readln(n);
if (n mod 2) = 0 then n:=n+1;
For i:= 1 to 5 do Begin
a:=a+n; n:=n+2;
End;
Write(a,' - сумма пяти нечётных чисел');
End.
Ткань уже купили еще до указа, и длина куска в метрах уже не изменится, несмотря ни на какие указы.
Изменилась длина самой сажени в метрах как меры длины.
1 сажень = 3 аршина, значит 5 саженей и 3 аршина = 6 саженей.
До указа 6 саженей = 6*2,16 = 12,96 м
После указа 6 саженей = 6*2,1336 = 12,8016 м
6 саженей стали короче на 0,1584 м.
А кусок ткани в 6 старых саженей стал
12,96 / 2,1336 = 6,074 новых саженей.