Нужно написать программу на pascal abc?

DrFob 10 февр. 2021 г., 01:47:40

/ / Данный алгоритм использует большое количество системных ресурсов.

Например, для 10000 результат вычислялся 2 минуты, ну Вы поняли.

Приношу свои извинения.

/ / PascalABC.

NET 3.

2 сборка 1318

Var ma : array of string ; arr : array of integer ; n, GroupCount, i, j, CountOfFails, k, mass : integer ;

b : boolean ; s : string ;

begin

GroupCount : = 1 ;

CountOfFails : = 0 ;

b : = true ;

read(n) ;

setlength(ma, GroupCount) ;

ma[0] : = '1, ' ;

for i : = 2 to n do

begin for j : = 0 to GroupCount - 1 do begin s : = ma[j] ; mass : = 0 ; while pos(', ', s)< ; > ; 0 do begin inc(mass) ; setlength(arr, mass) ; arr[mass - 1] : = strtoint(copy(s, 1, pos(', ', s) - 1)) ; delete(s, 1, pos(', ', s)) ; end ; for k : = 0 to mass - 1 do if i mod arr[k] = 0 then begin b : = false ; inc(CountOfFails) ; break ; end ; if b = true then begin ma[j] + = inttostr(i) + ', ' ; break ; end ; if (b = false) and (CountOfFails = GroupCount) then begin inc(GroupCount) ; setlength(ma, GroupCount) ; ma[j + 1] : = inttostr(i) + ', ' ; end ; b : = true ; end ;

CountOfFails : = 0 ;

b : = true ;

end ;

{writeln('End of main cycle reached') ; / / если хочется посмотреть разбивку

for j : = 0 to GroupCount - 1 do

writeln('Group #', j + 1, ' : ', ma[j]) ;

writeln(' - - - - - - - - - - - - - - - - - - - - - ') ; }

writeln(GroupCount) ;

end.

Пример ввода :

10000

Пример вывода :

14.

Lenarygalova91 3 янв. 2021 г., 08:54:52 | 10 - 11 классы

Добрый вечер, помогите мне?

Добрый вечер, помогите мне!

Нужно написать код для программы Pascal ABC, нужно написать код для решения этого уравнения.

Спасибо!

PUP882 18 янв. 2021 г., 08:35:46 | 5 - 9 классы

Написаиь программу на pascal ABC ;Из бюджета в 100 рублей нужно купить ручки стоимостью 34 рубля, программа должна вывести количество купленных ручек?

Написаиь программу на pascal ABC ;

Из бюджета в 100 рублей нужно купить ручки стоимостью 34 рубля, программа должна вывести количество купленных ручек.

Даяна1001 20 апр. 2021 г., 06:51:44 | 5 - 9 классы

Помогите, пожалуйста, нужны программы для Pascal ABC?

Помогите, пожалуйста, нужны программы для Pascal ABC.

EvGen4iK514 1 мар. 2021 г., 21:04:24 | 5 - 9 классы

Нужно написать программу на pascal abc?

Нужно написать программу на pascal abc.

Fsd39238 31 янв. 2021 г., 00:36:02 | 5 - 9 классы

Написать программу на языке Pascal (ABC)?

Написать программу на языке Pascal (ABC).

Номер 20.

2.

Swetikk 23 июл. 2021 г., 00:55:34 | 5 - 9 классы

Нужно написать программу pascal abc?

Нужно написать программу pascal abc.

12345678903 12 мая 2021 г., 09:42:14 | 5 - 9 классы

Помогите написать программу в Pascal abc?

Помогите написать программу в Pascal abc.

Бааарссс 6 июн. 2021 г., 23:56:07 | 5 - 9 классы

Написать программу на нахождение суммы отрицательных четных чисел на языке Pascal ABC?

Написать программу на нахождение суммы отрицательных четных чисел на языке Pascal ABC.

Rafaelimaev 25 июл. 2021 г., 11:11:16 | 10 - 11 классы

Написать программу вычисления pascal abc?

Написать программу вычисления pascal abc.

3453467 21 окт. 2021 г., 17:43:18 | 10 - 11 классы

Написать программу вычисления Pascal abc?

Написать программу вычисления Pascal abc.