117, 207, 297, 387, 477, 567, 657, 747, 837, 927 моя первая программа на паскале (у меня работает правильно) program MyHelloWorld(output); var i, v : integer; begin v:=99; for i := 1 to 10 do begin while true do begin Inc(v); if ((v - 7) mod 10 = 0) And (v mod 9 = 0) then begin writeln(v); break; end; end; end end.
Денотатный граф - [от лат. denoto — обозначаю и греч. — пишу вычленения из текста существенных признаков ключевого понятия.
создания денотатного графа: •Выделение ключевого слова или словосочетания •Чередование имени и глагола в графе (именем может быть одно существительное или группа существительных в сочетании с другими именными частями речи; глагол выражает динамику мысли, движение от понятия к его существенному признаку) •Точный выбор глагола, связывающего ключевое понятие и его существенный признак (глаголы, обозначающие цель — направлять, предполагать, приводить, давать и т. д. ; глаголы, обозначающие процесс достижения результата — достигать, осуществляться; глаголы, обозначающие предпосылки достижения результата — основываться, опираться, базироваться; глаголы-связки, с которых осуществляется выход на определение значения понятия) •Дробление ключевого слова по мере построения графа на слова — "веточки" •Соотнесение каждого слова — "веточки" с ключевым словом с целью исключения каких-либо несоответствий, противоречий и т. д.
Сначала надо избавиться от ошибок (пункт №3) иначе не сможем выполнить 1 и 2 пункт задания. Исправляем if N mod 10 k:=N mod 10; на if (N mod 10 < k) then k:=N mod 10; Исправляем N:N div 10; на N:= N div 10;
После исправления ошибок при вводе 537 получим 3 Программа будет работать правильно для любого числа, у которого вторая цифра слева меньше первой цифры, например: 7193
Чтобы программа работала правильно для всех чисел надо изменить это: while N > 10 do на while N > 0 do
После всех исправлений код программы стал таким: var N, k: integer; begin readln(N); k := 9; while N > 10 do begin if (N mod 10 < k) then k := N mod 10; N := N div 10; end; write(k) end.
моя первая программа на паскале (у меня работает правильно)
program MyHelloWorld(output);
var i, v : integer;
begin
v:=99;
for i := 1 to 10 do begin
while true do begin
Inc(v);
if ((v - 7) mod 10 = 0) And (v mod 9 = 0) then begin
writeln(v);
break;
end;
end;
end
end.