Российская Федерация, г. Москва
СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ
Благодаря готовым учебным материалам для работы в классе и дистанционно
Скидки до 50 % на комплекты
только до
Готовые ключевые этапы урока всегда будут у вас под рукой
Организационный момент
Проверка знаний
Объяснение материала
Закрепление изученного
Итоги урока
Была в сети 20.03.2025 22:09
Шамаева Татьяна Владимировна
Учитель информатики
11 лет
0
Местоположение
Специализация
Дз 4. Обработка последовательностей
Категория:
Информатика
22.09.2016 15:05
Просмотр содержимого документа
«Дз 4. Обработка последовательностей»
27.Вводится N пар чисел (x,y) (N Требуется найти максимальную сумму чисел по одному из пары, так, чтобы полученная сумма не делилась на число k. Если такую сумму найти невозможно, требуется вывести "0".
Задачи 3664,3665,112441 из informatics
Ниже записана программа. Получив на вход число 
, эта программа печатает два числа, 
и 
. Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 9.20-32
var x, a, b : integer;
begin
readln(x);
a := 0; b := 1;
while x 0 do begin
a := a + 1;
b := b * (x mod 5);
x := x div 5;
end;
writeln(a); write(b);
end.
Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наибольшее из чисел , при вводе которых алгоритм печатает сначала 13, а потом 3.20-47
var x, a, b, c: integer;
begin
readln(x);
a := 0; b := 10;
while x0 do begin
с := x mod 10;
a := a+c;
if c
x := x div 10;
end;
writeln(a); write(b);
end.
Ниже записан алгоритм. Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 2.20-51
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.
Получив на вход число х, этот алгоритм печатает два числа К и R. Укажите наибольшее из таких чисел х, при вводе которых алгоритм печатает сначала 3, а потом 7.20-54
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.
Вебинар для учителей
Свидетельство об участии БЕСПЛАТНО!
