Program Z_n;
var a:array[1..10] of byte;
i:byte;
Begin
writeln;
Randomize;
For i:=1 to 10 do begin
a[i]:=random(10);
write(a[i],' ');
if (a[i] mod 2)=0 then a[i]:=a[i]+1;
end;
writeln;
For i:=1 to 10 do
Write(a[i],' ');
end.
// 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
Следуя закону Мура об удвоение вычислительной мощности процессора за год, у нас получить четверть 100:4=25 лет и получаем что мощность должна увеличиться в раз.
Дискретный сигнал - информационный сигнал. Сигнал называется дискретным, если он может принимать лишь конечное число значений.
Var
A,B:integer;
Begin
Write('Введите два числа: ');ReadLn(A,B);
if A<B then Write(A)
else Write(B)
End.