укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 25. program B08; var x, a,b: interger;
10-11 класс
|
begin
readln(x);
a:=0; b:=0;
while x>0 do
begin
a:=a+1;
if (x mod 2)<>then
b:= b+(x mod 10);
x:=x div 10;
end;
writeln(a); write(b ;
end.
Ответ: 997
Программу правильно допиши:
var x, a,b: integer;
begin
readln(x);
a:=0; b:=0;
while x>0 do
begin
a:=a+1;
if (x mod 2) <> b then
b:= b+(x mod 10);
x:=x div 10;
end;
writeln(a); write(b) ;
end.
(исправленный вид)
Другие вопросы из категории
Чему будет равно:
1)A*B
2)A+B
3A-B
Пример:
массив:
1 2 3 4 5 6
результат:
3 2 1 6 5 4
111111
000000
111111
000000
111111
000000
будь-ласка...
Читайте также
Ниже
записана программа. Получив на вход число x, эта программа печатает два числа, L и M. Укажите наименьшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а
потом 28.
Ниже на четырёх языках записан алгоритм. Получив на вход число x, этот алгоритм печатает два числа: a и b. Укажите наименьшее из таких чисел x, при вводе которых алгоритм печатает сначала 13, а потом 5.
потом 3.
var x, i, K, R, y: integer;
begin
readln(x);
K := 0; R := 9;
y := x mod 10;
while x > 0 do begin
K := K + 1;
if R > x mod 10 then
R := x mod 10;
x := x div 10
end;
R := y - R;
writeln(K); writeln(R)
end.
сначала 2 потом 63
которых алгоритм печатает сначала 3, а потом 7.