4 года назад

Определить сумму всех чисел кратных 3 из промежутка от 100 до 1000

1 ответ:

makoveev4 года назад

0 0

Var sum,i:integer;
begin
sum:=0;
for i:=100 to 999 do
if (i mod 3=0) then sum:=sum+i;
writeln('Сумма трехзначных чисел кратных трем равна ',sum);
end.

Читайте также

Создать файл из 250 целых чисел, лежащих на отрезке [20,5000], используя генератор случайных чисел. -Вывести его на экран. -Скол

Антошкин [4.7K]

Var
    f: file of integer;
    i, n, x, t, k, max: integer;
    s: integer;

begin
    randomize;
    write('n=');
    readln(n);

    assign(f, 'numbers.dat');
    rewrite(f);

    max := -1;
    for i := 1 to n do
    begin
        x := random(4800) + 20;
        write(f, x);
        write(x, ' ');
        if x > max then max := x;
    end;
    writeln;

    seek(f, 0);
    k := 0;
    while not eof(f) do
    begin
        read(f, x);
        t := x;
        s := 0;
        while t > 0 do
        begin
            s := s + sqr(t mod 10);
            t := t div 10;
        end;
        if x mod s = 0 then k := k + 1;
        if x > max - 50 then write(x, ' ');
    end;
    writeln;

    writeln(k);
end.

0 0

2 года назад

Представь числа в двоичном виде в восьмибитовом представлении в формате целого без знака а)5 б)17 в)64 г)255

Анна1234567890123...

1 - 0001
2 - 0010
3 - 0011
4 - 0100
5 - 0101
6 - 0110
7 - 0111
8 - 1000
9 - 1001
8 бит - значит в числе должно быть 8 нулей или единичек, если их не хватает, то можно добавить незначащие нули.
1) 5₁₀ = 00000101₂
2) 17₁₀ = 00010001₂ ( 16 = $2^{4}$ , в 2й сс это 1 и 4 нуля по степени, 17 = 16 + 1)
3) 64₁₀ = 01000000₂ ( 64 = $2^{6}$ , в 2й сс это 1 и 6 нулей)
4) 255₁₀ = 11111111₂

0 0

4 года назад

Как найти сумму всех элементов в массиве array

yukon [145]

Var a:array[1..100]of integer;
i,sum,n:integer;
begin
writeln("vvedite kol-vo elementov");
read(n);
sum:=0;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
sum:=sum+a[i];
writeln("summa vseh elementov = ",sum);
end.

0 0

4 года назад

Алгоритм строительного дома

Алексей Евд

1. Выбрать участок под строительство
2. Получения разрешения на проектирования
3. Геология участка
 4.Проект
5.Утверждение проекта дома
6. Получить разрешение на строительство
7. Строительство

0 0

3 года назад

2. Приведите 3-4 примера профессий людей, чья деятельность, в основном, связана с обработкой полученной информации.

Allazhur

Аналитик, юрист, риэлтор, переводчик

0 0

4 года назад

Прочитать ещё 2 ответа