Всего на сайте:
248 тыс. 773 статей

Главная | Информатика

Readln(x);  Просмотрен 88

L:=0; M:=0;

while x > 0 do begin

L:= L + 1;

if x mod 2 = 1 then

M:= M + (x mod 10) div 2;

x:= x div 10;

End;

Writeln(L); write(M);

End.

7) Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 7.

var x, L, M: integer;

Begin

Предыдущая статья:Readln(x); Следующая статья:Readln(x);
page speed (0.0143 sec, direct)