От 3-х значного числа отнять 3-х значное число из тех-же цыфр поставленных в обратном порядке и ответ из них-же

Вот так, если не правильно, пиши в комментарии , попробуем по другому : )

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

Var arr: array [1..6] of integer; i,k,x,s,d,j: integer; beginrandomize; d: =0; for j: =1 to 1000 dobeginfor i: =1 to 6 do   arr[i]: =1; k: =1; s: =1; while k< > 0 do  begin    x: =random(6)+1;     arr[x]: =0;     if (arr[1]=0) and (arr[2]=0) and (arr[3]=0) and (arr[4]=0) and(arr[5]=0) and (arr[6]=0) then k: =0;     s: =s+1;   end; d: =d+s;   end; writeln('в среднем цикл отработал ',d/1000,' раз');   end. в среднем цикл отработал 15.946 разпри многократном запуске   получается около  16 раз