Составьте и выполните программу решения : если между цифрами двузначного числа записать ноль, то полученное трехзначное число будет в 7 раз больше первоначального. найдите это число. паскаль

105

470

Посмотреть ответы 2

Ответы на вопрос:

vladvladc

Информатика

4,6(13 оценок)

Вариант без строк. //pascal var tmp1, tmp2, i: integer; begin for i : = 10 to 99 do begin tmp1 : = 0; tmp2 : = 0; tmp1 : = (i div 10)*100; tmp2 : = i mod 10; tmp2 : = tmp1 + tmp2; if tmp2 = i*7 then writeln('найдено число = ', i); end; readln; end. результат: найдено число = 15

нина12789

Информатика

4,4(99 оценок)

Var a: array[1..8] of integer; i, b, min: integer; begin b : = 1; for i : = 1 to 8 do begin write('введите ', i, '-ый элемент массива '); readln(a[i]); //вводим число if i = 1 then min : = a[i] else // если это первое число то min: = это число if min > a[i] then begin //если min оказывается больше введённого числа min : = a[i]; //то min: = это чило b : = i; //и переменной b : = номер этого числа в массиве end; end; write('первоначальный массив | '); for i : = 1 to 8 do write(a[i], ' '); // выводим этот массив writeln('| индекс минимального элемента ', b, '. число ', a[b]); // переменную b и элемент стоящий на месте b write('преобразованный массив| '); for i : = 1 to 8 do begin a[i] : = a[i] - min; //преобразуем массив вычитая из элемента i - min write(a[i], ' '); // и сразу выводим преобразованное число end; write('|'); end. //конец