Петя и коля играют в следующую игру: петя задумывает правило преобразования целых чисел. коля может называть пете любые числа и узнавать результаты преобразования. коли — отгадать это правило. ниже вопросы коли и ответы пети в нескольких таких играх. попробуйте отгадать, какое правило задумал петя в каждой игре. а) 1-> 2; 2-> 3; 3-> 4; 10-> 11; 100-> 101; б) 1-> 2; 2-> 4; 3-> 6; 4-> 8; 10-> 20; 100-> 200; в) 1-> 3; 2-> 5; 3-> 7; 4-> 9; 10-> 21; 100-> 201; г) 1-> 2; 2-> 1; 3-> 4; 4-»3; 10-> 9; 11-> 12; 100-> 99; д) 1-> 2; 2-> 1; 3-> 6; 4-> 2; 10-> 5; 11-> 22; 100-> 50; е) 1-> 1; 2-> 1; 3-> 1; 4-> 1; 10-> 2; 11-> 2; 100-> 3.
Ответы
А) к числу +1 б) число умножается на 2 в) число умножается на 2 и +1 г) к нечетным +1, от четных -1 д) четные делить на 2, нечетные умножить на 2 е) однозначные в 1, двузначные в 2, трехзначные в 3
Если размеры массива нужны другие, в самом начале программы исправь значения n, m const n=5; m=6; var a: array[1..n,1..m] of integer; i,j,min: integer; begin for i: =1 to n do begin for j: =1 to m do begin a[i,j]: =random(20); write(a[i,j]: 4); if j=1 then min: =a[i,1] else if a[i,j]< min then min: =a[i,j]; end; writeln('; min=',min); end; end.
Пункт а: насколько я помню, в паскале невозможно реализовать бесконечный цикл, поэтому решение будет слегка притянуто за уши. например если вы введете число из 9001 символа, программа будет работать неккоректно. для выхода из цикла используется 'метка'. a, counter, summa : integer; label transfer; begin writeln('введите число'); readln(a); counter : = 1; countertw0 : = countertwo + 1; while counter < 9000 do begin counter : = counter +1; if (a div counter) < 0 then transfer else countertwo : = countertwo + 1; else; goto transfer; //узнали, что в числе countertwo символов while counter < countertwo do summa : = summa + ((a div counter) mod 10); summa : = summa + (a mod 10); writeln(summa); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Надо это решить, вопросов будет много
Автор: medvik
осталось 12 минут по быстрее все отдаю
Автор: mashere59
Вычислить множество значений функций Y=1, 2x² - L при L=0, 2 x изменяющихся от 3 до 20 с шагом 3
Автор: Vyacheslav_Nikolaevna
