| ← Январь 2019 → | ||||||
|
2
|
3
|
4
|
5
|
6
|
||
|---|---|---|---|---|---|---|
|
7
|
9
|
10
|
11
|
12
|
13
|
|
|
14
|
15
|
16
|
19
|
20
|
||
|
21
|
22
|
23
|
24
|
25
|
26
|
27
|
|
28
|
29
|
30
|
31
|
|||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Здравствуйте! У меня возникли сложности с такими вопросами, помогите, пожалуйста:
Дата отправки: 21.12.2018, 18:17 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, luxv99! © Цитата: puporev можно ли использовать строковое представление числа © Цитата: luxv99 Нельзя, все строится с использованием простых циклических алгоритмов Т.е. Массивы использовать нельзя, т.к. строка - это тоже массив, но не чисел, а символов. К массивам можно применить "простые циклические алгоритмы", остается только рекурсивный разбор числа, а это уже выходит за рамки простого циклического алгоритма. Таким образом уточняйте задание. 2) нечет*нечет:=нечет, минимальный нечет =3, 1 - не считается Код (Pascal) :: выделить код var
a,b,c,d,e,f,g:integer;
begin
write('enter n1:');
readln(a);
write('enter n2:');
readln(b);
if a>b then
begin
c:=a;
a:=b;
b:=a;
end;
d:=0;
for c:=a to b do
begin
e:=1;
f:=c div 2;
while f>1 do
begin
if((c mod f)=0)and odd(f) then e:=e*f;
dec(f);
end;
if((d=0)or(d>e))and(e<>1)then
begin
d:=e;
g:=c;
end;
end;
writeln('result:',g,'=',d);
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
