<u>//PascalABC.NET 3.3
</u>begin
Range(1, ReadInteger('n->') - 1, 2).Sum.Println;
end.
<u>
// Pascal
</u>var n,i,s:integer;
begin
Write('n->');
readln(n);
i:=1;
while i<n do begin s:=s+i; inc(i,2); end;
Writeln(s);
end.
<em>1. Короткий вариант</em>
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
SeqRandom(10,-10,20).Select(x->(x,1/x)).Println(NewLine)
end.
<u>Пример</u>
(13,0.0769230769230769)
(-10,-0.1)
(9,0.111111111111111)
(-5,-0.2)
(14,0.0714285714285714)
(18,0.0555555555555556)
(15,0.0666666666666667)
(3,0.333333333333333)
(-5,-0.2)
(-9,-0.111111111111111)
<em>2. "Красивый" вариант</em>
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
SeqRandom(10,-10,20).Select(x->(x,1/x))
.Foreach(x->Writeln(x[0]:3,x[1]:15:8))
end.
<u>Пример</u>
18 0.05555556
-10 -0.10000000
16 0.06250000
6 0.16666667
15 0.06666667
13 0.07692308
5 0.20000000
18 0.05555556
-1 -1.00000000
13 0.07692308
<em>3. А так писали наши деды четверть века назад...</em>
var
i,x:integer;
begin
Randomize;
for i:=1 to 10 do begin
x:=Random(31)-10;
Writeln(x:3,1/x:15:8)
end
end.
<u>Пример</u>
-7 -0.14285714
11 0.09090909
-2 -0.50000000
-10 -0.10000000
14 0.07142857
-7 -0.14285714
-5 -0.20000000
5 0.20000000
13 0.07692308
10 0.10000000
Объяснение:
Пользователь вводит трехзначное число. Программа должна сложить цифры, из которых состоит это число. Например, если было введено 349, программа должна вывести на экран число 16, так как 3 + 4 + 9 = 16.
Как извлечь отдельные цифры из числа? Если число разделить нацело на десять, в остатке будет последняя цифра этого числа. Например, если 349 разделить нацело на 10, то получится частное 34 и остаток 9. Если потом 34 разделить также, то получится частное 3 и остаток 4; далее при делении 3 на 10 получим частное 0 и остаток 3.
В языках программирования почти всегда есть две такие операции:
1) нахождение целого при делении нацело,
2) нахождение остатка при делении нацело.
В языке программирования Python v.3 первая операция обозначается // (двумя знаками деления), а вторая - % (знаком процента). Например:
>>> 34 // 10
3
>>> 34 % 10
4
Ответ на Паскале ,надеюсь устроит.
Зоркий Глаз Кожаный Мешочек Абрикос
Граф Сундучок Банан
Стрелец Ракушка Лимон