Заметим, что числа образуют арифметическую прогрессию, а её сумма известна:
$S= \frac{a_1+a_n}{2}\times n= \frac{1+n}{2}\times n$
Поэтому два варианта программы: один вычисляет сумму накоплением, второй сразу определяет результат по формуле. Хороший пример того, что программист должен знать математику.

var
n, i, s: integer;

begin
Write('Введите натуральное число: ');
Readln(n);
if (n mod 2) = 0 then
begin
    s := 0;
    for i := 1 to n do s := s + i;
    Writeln('Сумма чисел от 1 до ', n, ' равна ', s)
end
else Writeln('Введено нечетное число')
end.

Тестовое решение:

Введите натуральное число: 8
Сумма чисел от 1 до 8 равна 36

var
n, s: integer;

begin
Write('Введите натуральное число: ');
Readln(n);
if (n mod 2) = 0 then
    Writeln('Сумма чисел от 1 до ', n, ' равна ', ((1 + n) * n) div 2)
else Writeln('Введено нечетное число')
end.

Тестовое решение:

Введите натуральное число: 8
Сумма чисел от 1 до 8 равна 36

0 0

3 года назад

1.В ящике лежат 36 красных и несколько зеленых яблок. Сообщение «Из ящика достали зеленое яблоко» несет 2 бита информации. Сколь

Анонимммммм11111

1. Пусть x - количество зеленых яблок.
I = log(2)[1/(x/36)] = log(2)[36/x] = 2; 36/x = 2^2; x = 9

2. I = log(2)[1/(15/60)] = log(2)[4] = 2 бита

3. I = log(2)16 = 4 бита

0 0

4 года назад

1)Требуется создать двумерный массив целых чисел размером MxN, где MиNвводятся пользователем, но не превышают 15. Заполнить масс

djsi

Насколько я понял, множество - это просто все эти числа, только без повторений.

Заведем массив boolen, где будем отмечать, есть ли данное число во множестве.

var

a : array [1..15, 1..15] of integer;

b : array [1..30] of boolean;

i, j, n, m : integer;

begin

read (n, m);

for i := 1 to 30 do b[i] := false; //Зануление начальных значений

for i := 1 to n do

for j := 1 to m do

a[i, j] := i +j; //Заполнение массива

for i := 1 to n do

for j := 1 to m do

b[a[i, j]] := true; //Формирование множества

for i := 1 to n do

begin

for j := 1 to m do

write (a[i, j], ' ');

writeln;

end;

for i := 2 to 30 do

if b[i] then write (i, ' ');

end.

0 0

3 года назад

Постройте таблицу истинности: (х*у)*х

Постройте таблицу истинности: (ху)х