+ 3 * 1 3 / {x} x=0 11 0 С/П 1 С/П
0 - если не кратна, 1 - если кратна.
<h2>Задание 4</h2>
program task30982812;
var
arr: array[1..10] of integer;
x, i, Sum, a: integer;
begin
Write('Введите число a: ');
Readln(a);
Writeln('Введите 10 значений массива!');
for i := 1 to 10 do
begin
Write(i, '-й элемент: ');
Read(arr[i]);
if (arr[i] mod 2 <> 0) then
Sum := Sum + arr[i];
if (arr[i] > a) then
Writeln(arr[i], ' больше числа ', a)
end;
Write('Сумма нечётных чисел: ', Sum);
end.
<h2>Задание 5</h2>
program task30982812;
var
arr: array[1..15] of integer;
i, k3, k5: integer;
begin
for i := 1 to 15 do
begin
arr[i] := Random(50);
Write(arr[i], ' ');
if (arr[i] mod 3 = 0) then
Inc(k3);
if (arr[i] mod 5 = 0) then
Inc(k5);
end;
Write(Chr(10), 'k3 = ', k3, ', k5 = ', k5);
end.
Вычисления - в прилагаемом файле
C# не знаю. Ответа вряд ли дождешься.
Если обладаешь минимальными знаниями в C# - переделаешь с C++.
#include <iostream>
const float PI = 3.14;//определите значение сами. Можно, конечно, брать более точное(double) из библиотек, но ограничусь этим.
int main()
{
int
R,//радиус бОльшей окружности.
r = 20,//радиус меньшей окружности.
result;//площадь.
std::cin >> R;
std::cout << "радиус бОльшей окружности = " << R << std::endl;
std::cout << "радиус меньшей окружности = " << r << std::endl;
std::cout << "Площадь равна = " << PI*(R*R-r*r);
}
При использовании алфавита из 8 символов для хранения одного символа требуется log(2)8 = 3 бита.
Количество символов в сообщении = 360/3 = 120