// счет разрядов от нуля справа налево: ХХХ5ХХ2ХХ
var
n:longint;
a,b,k,d:integer;
begin
Write('Введите натуральное число длиной 6-9 цифр: ');
Read(n);
k:=0;
while n>0 do begin
d:=n mod 10;
if k=2 then a:=d
else
if k=5 then b:=d;
Inc(k);
n:=n div 10
end;
Writeln('Ср. арифм. разрядов 2 и 5 равно ',(a+b)/2)
end.
Пример
Введите натуральное число длиной 6-9 цифр: 123456789
Ср. арифм. разрядов 2 и 5 равно 5.5
1) 5 9 13 17 21 25 29 33 37 41 45 49
var sum, i, s: integer; //обыявляем необходимые переменные
//sum - сумма, i - кол-во слогаемых, s - само слогаемое
begin //начало
sum := 0; i := 1; s := 5; //первое слогаемое = 5
repeat
sum := sum + s; //к сумме прибавляем слагаемое
s := s + 4; //увеличиваем слогаемое
i := i + 1; //увеличиваем кол-во слогаемых
until (sum = 324); //выход когда сумма равна 324
writeln ('Слогаемых: '); // выводим кол-во слогаемых
write (i);
end. //конец
Т.к. язык программирования не указан, сделаю на свой вкус, т.е. C++. При копировании кода из IDE на сайт автоматически удаляется перенос строки. Будет прикреплен скриншот того, как должен выглядеть код
#include <stdlib.h>#include <stdio.h>#include <locale>
void main(){ setlocale(LC_ALL, "RUSSIAN"); int i, n, an; an = 0; printf("\n Введите n ->"); scanf_s("%d", &n); for (i = 1; i <= n; i++) an = an+i; printf("\n Сумма первых n натуральных чисел равна: %d", an); an = 0; for (i = 1; i <= n; i++) an = an + i*i; printf("\n Сумма квадратов первых n натуральных чисел равна: %d", an); an = 0; for (i = 1; i <= n; i++) if (i % 2 == 0)an = an + i; printf("\n Сумма всех четных чисел в диапозоне от 1 до n: %d", an); an = 0; for (i = 10; i <= 99; i++) an = an + i; printf("\n Сумма всех двухзначных чисел равна: %d \n", an); system("pause");}
Если карандаш выбирали наугад и информация, что достали зеленый карандаш, несет 2 бита, то вероятность того, что достали зеленый карандаш, была равна 1/2^2 = 1/4. Значит, в коробке было 1/4 * 32 = 8 зеленых карандашей