dianamakhmutova1
17.05.2022 12:37

Правительство байтландии приняло решение о поддержке отечественных производителей электроники.одна из компаний разработала жидкокристалличесие дисплеи для электронных счетчиков,которые могут отображать цифры.каждая цифра изображается с семи сегментов,каждый из которых может быть включен или выключен.
Все счетчики будут вести отсчет от нуля до некоторого числа k,последовательно проходя по всем значениям.ведущие нули в числах,отображаемых на счетчиках,не отображаются,все сегменты перед первой значащей цифрой включены
За одну операцию можно изменить состояние одного сегмента (включить или выключить).компания получила заказ на изготовление n типов счетчиков,для каждого из типов известно максимальное значение счетчика ki.для каждого из типов счетчика определите,какое количество операций по изменению состояния сегмента необходимо будет произвести для прохода по всем значениям от нуля до ki.
В первой строке входных данных записано число t –количество различных типов счетчиков.в следующих t строках записаны числа ki.ответ для каждого типа счетчика выведете в отдельной строке
В первом тесте t=3,ki не превосходит 100
Во втором тесте t=700,ki не превосходит 10**9

входные данные
3
2
10
3
выходные данные
9
34
11

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
DoodleCrazy
14.04.2022 03:02
Во-первых, не whill, а while.
 Во-вторых, цикл с предусловием(while) выполняется только тогда, когда его условие возвращает ложь. Если условие возвращает правду, цикл завершается. Бывает так, что при попытке первой итерации цикла условие уже возвращает правду. В этом случае цикл не будет выполнен ни разу.
 Цикл с предусловием(repeat), наоборот, выполняется, пока условие возвращает правду и завершается ложью. Стоит заметить, что если цикл с предусловием проверяет своё условие перед итерацией, цикл с постусловием делает это после, а это значит, что последний выполнится хотя бы один раз.
0,0(0 оценок)
Ответ:
shaduraalya
05.01.2020 03:35
1 задача
program proga;
var st,st2:string;
i:Integer;
begin
writeln('Введите число');
readln(st);
for i:=1 to length(st) do begin
st2:=st[i];
write(st2,' ');
end;
end.
2 задача
program proga2;
var st,st2:string;
i,a:Integer;
begin
writeln('Введите возраст');
readln(a);
if a>120 then
writeln('Неверные данные');
if a=1 then
writeln(a,' год');
if (a>1) and (a<5) then
writeln(a,' года');
if((a mod 10 = 1) and (a div 10 <> 0 or 11 )) then writeln(a,' год');
if (a>=5) and (a mod 10 <> 2 or 3 or 4)and (a div 10 <> 10) then
writeln(a,' лет');
if (a<=5) and (a mod 10 = 2 or 3 or 4)and (a div 10 = 10) then writeln(a,' года ');
if(a>104) and (a<110)then writeln(a,' лет');
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота