Используя цикл “for”, “while”, repeat” найти сумму чисел от 10 до 50 кратных 3 или 5.

Var i,s: integer; begin for i: =10 to 50 do if (i mod 3 = 0) or (i mod 5 = 0) then s+=i; writeln(s); end.

1

Заполнить файл f целыми числами, полученным генератором случайных чисел

16.05.2016, 14:56. Просмотров 1699. ответов 3

Метки нет (Все метки)

Заполнить файл f целыми числами, полученными с генератора случайных чисел. Получить в файле g все компоненты файла f, которые делятся на m и не делятся на п.

0

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

16.05.2016, 14:56

ответы с готовыми решениями:

Заполнить файл f целыми числами, полученными с генератора случайных чисел

Доброго всем времени суток кто чем может)) 1.Заполнить файл f целыми числами,...

Заполнить файл f целыми числами, полученными с генератора случайных чисел

Заполнить файл f целыми числами, полученными с генератора случайных чисел. Вывести на экран...

Заполнить файл f целыми числами, полученными с генератора случайных чисел

Заполнить файл f целыми числами, полученными с генератора случайных чисел. Вычислить...

Заполнить файл f натуральными числами, полученными с генератора случайных чисел

Заполнить файл f натуральными числами, полученными с генератора случайных чисел. Найти...

3

    441(5) + 122(5)   1113(5) объяснение, как складывать числа в системе по основанию n (у нас n=5) сложение производим "в столбик" в привычной нам десятичной системе счисления и начинаем с младших (правых) разрядов. 2+1=3. если сумма меньше n (в данном случае меньше, т.к. 3< 5), то записываем её "как есть" и переходим к следующему разряду. 4+2=6. тут сумма больше n (6> 5), поэтому вычитаем из этой суммы n (т.е. 5) и получаем 6-5=1. эту единичку мы записываем, а за то, что вычли пятерку (т.е. n), пишем "один в уме", т.е. +1 переходит в следующий разряд. 4+1+1=6 (4+1 было, и еще +1 от переноса). снова 6> 5, как описано выше, снова 6-5=1, снова 1 пишем и +1 в следующий разряд. +1 и даст 1, поскольку складывать больше нечего. ответ: 1113