Главная страница Случайная страница Разделы сайта АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Readln(x);. 2) Ниже записана программа
L: =0; M: =0; while x > 0 do begin L: = L + 1; M: = M + x mod 10; x: = x div 10; End; Writeln(L); write(M); End. 2) Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 8. var x, L, M: integer; Begin Readln(x); L: =0; M: =0; while x > 0 do begin L: = L + 1; if x mod 2 = 0 then M: = M + x mod 10; x: = x div 10; End; Writeln(L); write(M); End. 3) Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 0. var x, L, M: integer; Begin Readln(x); L: =0; M: =0; while x > 0 do begin L: = L + 1; if x mod 2 = 0 then M: = M + x mod 10; x: = x div 10; End; Writeln(L); write(M); End. 4) Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 8. var x, L, M: integer; Begin
|