Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
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