ИНФОРМАТИКА!!!
10-11 класс
|
Написать программу определения числа билетов с 6-значными номерами,у которых сумма первых 3 десятичных цифр равна сумме 3 последних десятичных цифр (ПАСКАЛЬ)
Program BB;
uses crt;
Var s,a,b,v,z,i:longint;
Begin
s:=1; {учитываем билет с номером 000000}
for i:=1 to 999999 do {перебираем билеты от 000001 до 999999}
begin
v:=i;
z:=0;
while z<3 do begin
z:=z+1;
a:=v mod 10 +a; v:=v div 10 end; {считаем сумму последних трех чисел}
while z<6 do begin z:=z+1;
b:=v mod 10 +b;
v:=v div 10
end; {считаем сумму первых трех чисел}
if a=b then s:=s+1;
a:=0;
b:=0;
end;
writeln(s);
ReadKey;
end.
Другие вопросы из категории
Алгоритмический язык
нач
цел а, b
a :=56
b :=a-70
нц пока не (b>0)
b :=b+13
кц
нц пока mod(a,b)<>0
a :=a-4
кц
вывод а
кон
1. Что такое право пользования?
2. Какие юридические документы составляют нормативно-правовую основу мер по защите авторских прав?
function nod(x:integer):Longint;
begin
if x=0 then nod:=1
else nod:=nod(x-1)*x
поясните последние две строчки плз
чисел определяет сумму чисел, кратных 3. Программа получает на
вход количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, кратное 3.
Количество чисел не превышает 100. Введённые числа не превышают 300.
Программа должна вывести одно число – сумму чисел, кратных 3.
Читайте также
один и готовился к физике, но потом я увидел университет другой и там прося информатику, пожалуйста подскажите из вашего опыта или опыта знакомых, сколько нужно примерно времени для того чтобы подготовиться к сдаче ЕГЭ по информатике с азов, возможно ли за пол года? при условии что я хорошо знаю математику.
один и готовился к физике, но потом я увидел университет другой и там прося информатику, пожалуйста подскажите из вашего опыта или опыта знакомых, сколько нужно примерно времени для того чтобы подготовиться к сдаче ЕГЭ по информатике с азов? при условии что я хорошо знаю математику.
Пожалуйста отвечайте конкретнее, из личного опыта или из опыта знакомых.
можно составить вариантов расписания на день,зная,что информатика - первый урок?
Нужно записать фрагмент программного кода,который получает слово романтика из слова информатика и выводит результат на экран