Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






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






© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.