Тест по заданию 20. ЕГЭ по информатике и ИКТ - Онлайн-тесты.
1. Ниже на языке Pascal записан алгоритм. При каком наименьшем n программа выведет на экран сначала 3, а потом 7?
var n, a, b, c: integer;
begin
readln(n);
a := 0; b := 0;
while n > 0 do begin
a := a+1;
c := n mod 10;
b := b+c;
n := n div 10;
end;
writeln(a); write(b);
end.
Ответ:
var n, a, b, c: integer;
begin
readln(n);
a := 0; b := 0;
while n > 0 do begin
a := a+1;
c := n mod 10;
b := b+c;
n := n div 10;
end;
writeln(a); write(b);
end.
Ответ:
2. Ниже на языке Pascal записан алгоритм. При каком наибольшем n программа выведет на экран сначала 2, а потом 12?
var n, a, b, c: integer;
begin
readln(n);
a := 0; b := 1;
while n > 0 do begin
a := a+1;
b := b * (n mod 10);
n := n div 10;
end;
writeln(a); write(b);
end.
Ответ:
var n, a, b, c: integer;
begin
readln(n);
a := 0; b := 1;
while n > 0 do begin
a := a+1;
b := b * (n mod 10);
n := n div 10;
end;
writeln(a); write(b);
end.
Ответ:
3. Ниже на языке Pascal записан алгоритм. При каком наибольшем n программа выведет на экран сначала 2, а потом 5?
var n, a, b, c: integer;
begin
readln(n);
a := 0; b := 10;
while n > 0 do begin
a:=a+1;
if n mod 10 < b then
b := n mod 10;
n := n div 10;
end;
writeln(a); write(b);
end.
Ответ:
var n, a, b, c: integer;
begin
readln(n);
a := 0; b := 10;
while n > 0 do begin
a:=a+1;
if n mod 10 < b then
b := n mod 10;
n := n div 10;
end;
writeln(a); write(b);
end.
Ответ:
4. Ниже на языке Pascal записан алгоритм. При каком наибольшем n программа выведет на экран сначала 10, а потом 5?
var n, a, b, c: integer;
begin
readln(n);
a := 0; b := 0;
while n > 0 do begin
a := a+1;
b := b + (n mod 2);
n := n div 2;
end;
writeln(a); write(b);
end.
Ответ:
var n, a, b, c: integer;
begin
readln(n);
a := 0; b := 0;
while n > 0 do begin
a := a+1;
b := b + (n mod 2);
n := n div 2;
end;
writeln(a); write(b);
end.
Ответ:
5. Ниже на языке Pascal записан алгоритм. При каком наибольшем n программа выведет на экран сначала 3, а потом 10?
var n, a, b, c: integer;
begin
readln(n);
a := 0; b := 0;
while n > 0 do begin
a := a+1;
b := b + (n mod 8);
n := n div 8;
end;
writeln(a); write(b);
end.
Ответ:
var n, a, b, c: integer;
begin
readln(n);
a := 0; b := 0;
while n > 0 do begin
a := a+1;
b := b + (n mod 8);
n := n div 8;
end;
writeln(a); write(b);
end.
Ответ:
6. Ниже на языке Pascal записан алгоритм. При каком наименьшем n программа выведет на экран сначала 3, а потом 10?
var n, a, b, c: integer;
begin
readln(n);
a := 0; b := 0;
while n > 0 do begin
a := a+1;
b := b + (n mod 5);
n := n div 5;
end;
writeln(a); write(b);
end.
Ответ:
var n, a, b, c: integer;
begin
readln(n);
a := 0; b := 0;
while n > 0 do begin
a := a+1;
b := b + (n mod 5);
n := n div 5;
end;
writeln(a); write(b);
end.
Ответ:
7. Ниже на языке Pascal записан алгоритм. При каком наибольшем n программа выведет на экран сначала 2, а потом 12?
var n, a, b, c: integer;
begin
readln(n);
a := 0; b := 0;
while n > 0 do begin
a := a+1;
b := b + (n mod 100);
n := n div 100;
end;
writeln(a); write(b);
end.
Ответ:
var n, a, b, c: integer;
begin
readln(n);
a := 0; b := 0;
while n > 0 do begin
a := a+1;
b := b + (n mod 100);
n := n div 100;
end;
writeln(a); write(b);
end.
Ответ:
8. Ниже на языке Pascal записан алгоритм. При каком наибольшем n программа выведет на экран сначала 2, а потом 4?
var n, a, b, c: integer;
begin
readln(n);
a := 0; b := 0;
while n > 0 do begin
if n mod 2 = 0 then
a := a + 2
else
b := b + 2;
n := n div 2;
end;
writeln(a); write(b);
end.
Ответ:
var n, a, b, c: integer;
begin
readln(n);
a := 0; b := 0;
while n > 0 do begin
if n mod 2 = 0 then
a := a + 2
else
b := b + 2;
n := n div 2;
end;
writeln(a); write(b);
end.
Ответ:
9. Ниже на языке Pascal записан алгоритм. При каком наименьшем n программа выведет на экран сначала 2, а потом 6?
var n, a, b, c: integer;
begin
readln(n);
a := 0; b := 0;
while n > 0 do begin
if n mod 2 <> 0 then
a := a + 1
else
b := b + 2;
n := n div 2;
end;
writeln(a); write(b);
end.
Ответ:
var n, a, b, c: integer;
begin
readln(n);
a := 0; b := 0;
while n > 0 do begin
if n mod 2 <> 0 then
a := a + 1
else
b := b + 2;
n := n div 2;
end;
writeln(a); write(b);
end.
Ответ:
10. Ниже на языке Pascal записан алгоритм. При каком наименьшем двузначном L программа выведет на экран число 4?
var x, L, M: integer;
begin
readln(x);
L := x;
M := 36;
while L <> M do
if L > M then
L := L - M
else
M := M - L;
writeln(M);
end.
Ответ:
var x, L, M: integer;
begin
readln(x);
L := x;
M := 36;
while L <> M do
if L > M then
L := L - M
else
M := M - L;
writeln(M);
end.
Ответ:
Поделиться: