1.
<span>var i:integer;
begin
for i:=10 to 99 do writeln(i);
end<span>.
Результат:
10
11
12
...
98
99
2.
var i:integer;
begin
for i:=10 to 99 do
if i mod 10=5 then writeln(i);
end.
Результат:
15
25
...
95
3.
var i:integer;
begin
for i:=1 to 15 do
write(random(21)+10,' ');
end.
Пример:
<span>25 19 12 11 25 27 30 19 21 19 15 10 14 22 22</span></span></span>
Нужно что-то присвоить функции для случая, когда (2*a+b-c)<0
Например, так:
function sqrt1 (a, b, c: real): real;
begin
if (2 * a + b - c) < 0 then
<span>begin writeln (' complex number '); sqrt1:=-1; end</span>
else sqrt1:= sqrt(2 * a + b - c);
<span>end;</span>
Учитывая, что в условии не обозначены границы N, придется воспользоваться возможностями PascalABC.Net
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var f: BigInteger := 1;
var s: BigInteger := 0;
var n := ReadInteger;
for var i := 1 to n do
begin
f:=1;
for var j := 1 to i do f *= j;
s := s + f;
end;
println('Сумма факториалов ', s);
end.
Тестовое решение
n=100
Сумма факториалов 94269001683709979260859834124473539872070722613982672442938359305624678223479506023400294093599136466986609124347432647622826870038220556442336528920420940313
10011
Да, потому что:
ну, просто складываем, как в столбик.
0+1=1, 1+0=1, 0+0=0
Но когда доходим до 1+1, это как 9+2, например, мы добавляем единицу.
Следовательно, 1+1=10
1010+1001=10011