// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var x:=ReadReal('x=');
var s:=0.0;
for var i:=1 to ReadInteger('n=') do s+=sin(i*x);
Writeln('s=',s)
end.
<u><em>Тестовое решение</em></u>
x= 0.543
n= 15
s=2.79048740821036
Бесплатная операционная система Linux. Вот есть платные операционные системы такие, как Windows, Unix (некоторые), MacOS и др.
На самом деле Linux это только ядро (основа) операционной системы, на которой создано много версий Linux (доработанных), например, Debian Linux, Ubuntu Linux, Slackware Linux, и тому подобных, их очень много.
Var
m : array[1..4,1..4] of Integer;
m_new : array[1..4] of Integer;
i,j : Integer;
Begin
For i:=1 to 4 do
Begin
For j:=1 to 4 do
Begin
m[i,j]:=Random(100);
Write(m[i,j]:5);
If i=j then m_new[i]:=m[i,j];
end;
Writeln;
end;
Writeln('Главная диагнональ: ');
For i:=1 to 4 do Write(m_new[i]:5);
Writeln;
end.
Ответ:
г
Объяснение:
мы это в классе делали с учительницей
1-сканер
2-клавиатура
3-тачпад
4-проектор
5-процессор