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·213 = 1043.
-
На рисунке – схема дорог, связывающих города А, Б, В, Г, Д, Е, Ж, З, И, К. По каждой дороге можно двигаться только в одном направлении, указанном стрелкой. Сколько существует различных путей из города А в город К?
-
Сколько секунд потребуется модему, передающему сообщения со скоростью 28800 бит/с, чтобы передать растровое изображение размером 800 ´ 600 пикселей, при условии, что в палитре 224 цветов?
-
На месте преступления были обнаружены четыре обрывка бумаги. Следствие установило, что на них записаны фрагменты одного IP-адреса. Криминалисты обозначили эти фрагменты буквами А, Б, В, Г и Д. Восстановите IP-адрес. В ответе укажите последовательность букв, обозначающих фрагменты, в порядке, соответствующем IP-адресу. Известно, что последнее число было трехзначным
А
Б
В
Г
Д
-
Некоторый сегмент сети Интернет состоит из 1000 сайтов. Поисковый сервер в автоматическом режиме составил таблицу ключевых слов для сайтов этого сегмента. Вот ее фрагмент:
Ключевое слово |
Количество сайтов, для которых данное слово является ключевым |
сомики |
250 |
меченосцы |
200 |
гуппи |
500 |
Сколько сайтов будет найдено по запросу
сомики | меченосцы | гуппи
если по запросу сомики & гуппи было найдено 0 сайтов, по запросу сомики & меченосцы – 20, а по запросу меченосцы & гуппи – 10.
-
У исполнителя Калькулятор две команды:
1. Прибавь 2
2. Умножь на 3.
Первая из них увеличивает число на экране на 2, вторая – утраивает его. Сколько различных чисел можно получить из числа 2 с помощью программы, которая содержит не более 4 команд?
-
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Var a,b,t,m,r :integer;
Function F(x:integer):integer;
begin
F:= x*x - 8*x + 10;
end;
BEGIN
a:=-5; b:=5;
M:=a; R:=F(a);
for t:=a to b do begin
if (F(t)> R)then begin
M:=t;
R:=F(t);
end;
end;
write(R);
END.
-
Сколько существует целых значений X, при которых ложно высказывание:
¬((|X| < 5) Ù (|X| < 1) Ù (|X| < 10))
-
Требовалось написать программу, которая решает уравнение относительно х для действительных чисел а, Ь, с, введенных с клавиатуры, о которых заведомо известно, что а¹0, b¹0 и c¹0. Была написана следующая программа:
Var a, b, с, d, xl, x2: real;
begin
readln(a, b, с, xl, x2);
D := b*b - 4*a*c;
if D > 0
then begin
xl := (-b + sqrt(D))/(2*a);
x2 := (-b - sqrt(D))/(2*a);
write('xl =', xl);
write('x2 =', x2); end
else writeln ('действительных корней нет');
end.
Известно, что программа написана с ошибками. Последовательно выполните три задания:
-
Приведите пример таких чисел а, Ь, с, при которых программа неверно решает поставленную задачу.
-
Укажите, какая часть программы является лишней.
-
Укажите, как, по-вашему мнению, нужно доработать программу, чтобы не было случаев ее неправильной работы.
-
Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 0 до 100 – баллы, полученные на ЕГЭ. Опишите на русском языке или на одном из языков программирования алгоритм, который подсчитывает и выводит средний балл учащихся, сдавших экзамен (получивших оценку более 20 баллов). Гарантируется, что хотя бы один ученик в классе успешно сдал экзамен. Исходные данные объявлены так, как показано ниже. Использовать другие переменные запрещается.
Паскаль
Естественный язык
const N = 30;
var A: array[1..N] of integer;
i, x, y: integer;
s: real;
begin
for i:=1 to N do readln(A[i]);
...
end.
Объявляется массив A из 30 элементов.
Объявляются целочисленные переменные i, x и y, а также вещественная переменная s.
В цикле от 1 до 30 заполняются все элементы массива A с 1-ого по 30-ый.
...
-
У исполнителя Калькулятор три команды, которым присвоены номера: