Реализация на Excel
Зашита без пароля.
Формулы можно увидеть в строке формул
Ответ:
program HappyTicket;
uses
SysUtils;
var
n1, n2, m1, m2, i, c: Integer;
s: string;
begin
Write ('Введите два номера билета: ');
ReadLn (n1, n2);
if (n1 > 100000) and (n1 < 999999) and (n2 > 100000) and (n2 < 999999) then begin
c := 0;
for i := n1 to n2 do begin
s := IntToStr (i);
m1 := StrToInt (s [1]) + StrToInt (s [2]) + StrToInt (s [3]);
m2 := StrToInt (s [4]) + StrToInt (s [5]) + StrToInt (s [6]);
if m1 = m2 then begin
Write (s, ' '); // для проверки выводятся все билеты. после убрать
Inc (c);
end;
end;
WriteLn;
WriteLn ('Количество = ', c);
end else
WriteLn ('Номера не шестизначные');
ReadLn;
end.
Привет) принимай ответ)
00101010 (2)=0*2^7+0*2^6+1*2^5+0*2^4+1*2^3+0*2^2+1*2^1+0*2^0=0+0+32+0+8+0+2+0=42 (10)
Ну, как, обычно, несколько кружек кофе, потом делаешь на листочке анализ или рисунок что бы лучше понять и разобрать цель, скажем так понять что нам дано и что мы имеем из этого, далее приступаем к формулировке задач, записать все формулы/вычисления и тому подобное, а потом уже можно под музыку и кодить :3
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadlnString.ToWords;
var i:=a.Select(t->t.Length).ToArray.IndexMin;
Writeln('Самое короткое слово "',a[i],'" длиной ',a[i].Length)
end.
<u>Пример</u>
Зеленые бесцветные идеи яростно спят
Самое короткое слово "идеи" длиной 4