программа на Паскале

[Ellzv]

1.
какую цифру нужно подставить в число А27 чтобы оно делилось на к
2.
найти все числа- близнецы(простые числа отличающиеся на 2) от M доN.
программы по этим задачам на Паскаль АВС

[Serge_Bliznykov]

какую цифру нужно подставить в число А27 чтобы оно делилось на к

ну, это просто. цифру M.

[Ellzv]

Сообщение от Serge_Bliznykov

ну, это просто. цифру M.

это две разные задачи, и по ним программы составить.

[Vanta11a]

Так составляйте, разрешаем!

А если серьезно: наработки где? Либо вы работаете сами, а здесь присутствующие направляют и советуют, либо вы платите деньги здесь присутствующим, которые пишут программу.

По первой задаче.
Представляете А27 в виде строки, последовательно подставляете вместо A цифры от 0 до 9, переводите строку в число, делите это число на к, если остаток = 0, значит нашли нужную цифру.

По второй задаче.
Изучите теорию, разработайте алгоритм.

[SaLoKiN]

такое ощущение что люди порой читают "халявное решение" вместо "помощь" студентам.

[Poma][a]

Представляете А27 в виде строки, последовательно подставляете вместо A цифры от 0 до 9, переводите строку в число, делите это число на к, если остаток = 0, значит нашли нужную цифру.

А просто цифирки в цикле перебрать от 0 до 9 умножить эту цифирку на 100 прибавить 27 и уже делить? Уж как-то странно сюда еще и строки приплетать..

[Vanta11a]

А просто цифирки в цикле перебрать от 0 до 9 умножить эту цифирку на 100 прибавить 27 и уже делить? Уж как-то странно сюда еще и строки приплетать..

Красиво и более наглядно.

[Poma][a]

Красиво? Наглядно? Да ладно!

for ch := '0' to '9' do begin
     Val (ch+'27', temp, ErrPos);
     if temp mod k = 0 then WriteLn (ch)
end;

И

for i := 0 to 9 do 
    if (i*100 + 27) mod k = 0 then WriteLn (i);

И где красивше? Где нагляднее? Единственный вариант, при котором Ваш способ будем более привлекателен - это использовать Дельфийскую StrToInt.. Но обычно такие задания даются школьникам, которые 1) пока еще не знают строк 2) точно не знают о существовании Delphi

Шушуть ошибся, StrToInt есть и в abc

[Vanta11a]

Я имел ввиду то, что Ваш вариант красивше =)

[Poma][a]

Угу..Я что-то глупость сделал... Простите..Видно болезнь сказывается