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