Всего оценок четыре : 2, 3, 4, 5
Оглашение оценки приводит к уменьшению неопределённости вашего знания в 4 раза, так как Вы получаете одно из четырёх возможных информационных сообщений
Функция isSevenHere возвращает истину, если в числе есть семерка, и ложь - если ее нет. В цикле for перебираем все значения от 1 до K (число, введенное с клавиатуры), и выводим на экран только те, где есть семерка.
Код программы:
function isSevenHere(number : integer) : boolean;var digit : integer;begin Result := true; while (number > 0) do begin digit := number mod 10; if (digit = 7) then exit; number := number div 10; end; Result := false;end;
var i,k :integer;begin write('Введите k: '); readln(k);
for i := 1 to k do if (isSevenHere(i) = true) then write(i,' ');end.
1) Алфавит, синтаксис и т. п. заданы выбранным языком. Начинается этот процесс с постановки задачи, составления алгоритма и т. п.
2) Интерпретатором здесь выступает процессор, а он является транслятором.
3) Он всегда является транслятором.
Var a: string;
i: integer;
begin
readln(i);
a := IntToStr(i);
for i := length(a) downto 1 do
write(a[i]);
<span>end.
Как вариант. Строку считывать не стал, раз уж работаем с числом, то и вводится путь число:)</span>