Российская Федерация, г. Москва
СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ
Благодаря готовым учебным материалам для работы в классе и дистанционно
Скидки до 50 % на комплекты
только до
Готовые ключевые этапы урока всегда будут у вас под рукой
Организационный момент
Проверка знаний
Объяснение материала
Закрепление изученного
Итоги урока
Была в сети 20.03.2025 22:09
Шамаева Татьяна Владимировна
Учитель информатики
11 лет
0
Местоположение
Специализация
Дз1. Циклы и ветления
Категория:
Информатика
07.09.2016 17:32
Просмотр содержимого документа
«Дз1. Циклы и ветления»
Ниже записана программа. Получив на вход число 
, эта программа печатает два числа, 
и 
. Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 8. 20-16
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, а потом 36.20-28
var x, a, b : integer;
begin
readln(x);
a := 0; b := 1;
while x 0 do begin
a := a + 1;
b := b * (x mod 10);
x := x div 10;
end;
writeln(a); write(b);
end.
Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 10.20-10
var x, L, M: integer;
begin
readln(x);
L:=0; M:=0;
while x 0 do begin
L:=L+1;
if M
M:= (x mod 10) * 2;
end;
x:= x div 10;
end;
writeln(L); write(M);
end.
Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 4.20-35
var x, L, M: integer;
begin
readln(x);
L:=0; M:=9;
while x 5 do begin
L:= L + 1;
if M (x mod 10) then M:= x mod 10;
x:= x div 10;
end;
writeln(L); write(M);end.
Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 7. 20-19
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) div 2;
x:= x div 10;
end;
writeln(L); write(M);
end.
Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 10.20-23
var x, L, M: integer;
begin
readln(x);
L:=0; M:=0;
while x 0 do begin
L:=L+1;
if (M
M:= (x mod 10) * 2;
end;
x:= x div 10;
end;
writeln(L); write(M);
end.
Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 10.20-30
var x, a, b : integer;
begin
readln(x);
a := 0; b := 1;
while x 0 do begin
a := a + 1;
b := b * (x mod 8);
x := x div 8;
end;
writeln(a); write(b);
end.
Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 7.20-36
var x, L, M: integer;
begin
readln(x);
L:=0; M:=0;
while x 5 do begin
L:= L + 1;
if M
x:= x div 10;
end;
writeln(L); write(M);
end.
Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 8, а потом 19.20-38
var x, a, b: integer;
begin
readln(x);
a:=0; b:=0;
while x0 do begin
a:= a + 2;
b:= b + (x mod 10);
x:= x div 10;
end;
writeln(a); write(b);
end.
Ниже записан алгоритм. После выполнения алгоритма было напечатано 3 числа. Первые два напечатанных числа – это числа 13 и 65. Какое наибольшее число может быть напечатано третьим?20-40
var x, y, z: integer;
r, a, b: integer;
begin
readln(x, у);
if у x then begin
z:= x; x:= у; у:= z;
end;
a:= x; b:= y;
while b 0 do begin
r:= a mod b;
a:= b;
b:= r;
end;
writeln(a);
writeln(x);
write(у);
end.
Вебинар для учителей
Свидетельство об участии БЕСПЛАТНО!
