Var a,k:integer;
begin
k:=0;
readln(a);
while a<>0 do
begin
if (a<10)and(a mod 3=0) then k:=k+1;
readln(a);
end;
writeln(k);
end.
Пример:
12
5
34
9
8
6
0
<span>2</span>
1. Вопрос задан коряво. Задача эта называется сундук Билли Бонса, ряд
<span>5,2,7,9,16,25 - это пример последовательности числа монет в сундуке, если в первый год монет пять, во второй - две.
2. Вот программка на АБС-Паскале, не оптимальная по ряду моментов, но рабочая. Из особенностей - выводит решения только если если во второй год монет становится меньше, чем в первый. Существуют решения при нулевом количестве взятых во второй год монет и при отрицательном. Если такие решения нужны - то условие в "if (j div n) < i then" надо изменить
Программка неэффективна, вместо решения диофантова уравнения по Евклиду используется тупой перебор, но по условиям он ограничен, и его можно себе позволить.
Выводятся также все решения, если нужно одно - прерывайте цикл по нахождению первого.
---------------------
program БиллиБонс;
//
const
maxYear = 20;
maxMoney = 32767;
var
a, b: array [1..maxYear] of integer;
m, n, x, y: integer;
f1, f2: text;
s: string;
begin
assign(f1, 'input.txt'); // устанавливаем связь между файловой переменной и путем к файлу
reset(f1); // открытие на чтение файла
read(f1, x);
read(f1, y);
close(f1); // закрываем файл
// Заполняем массив коэффициентов
a[1] := 1;b[1] := 0;
a[2] := 0;b[2] := 1;
for var i := 3 to maxYear do
begin
a[i] := a[i - 1] + a[i - 2];
b[i] := b[i - 1] + b[i - 2];
end;
m := a[x];n := b[x];
// решаем уравнение m*s1 + n*s2 = y
// m,n - коэффициенты, зависящие от номера года
// s1,s2 - монет в первый и второй годы
assign(f2, 'output.txt'); // устанавливаем связь между файловой переменной и путем к файлу
rewrite(f2); // создание (перезапись) файла
for var i := 1 to y div m do
// цикл по s1
begin
var j := y - m * i;
if j mod n = 0 then
if (j div n) < i then
begin
writeln('s1=', i, ' s2=', j div n);
writeln(f2, i, ' ', j div n); // вывод данных в файл
end;
end;
close(f2); // закрываем файл
end.
</span>
Объединение глобально распространяемых текстовых и мультимедийных документов и файлов, а также других сетевых сервисов, связанных друг с другом таким образом, что поиск и получение информации, а также интерактивное взаимодействие между пользователями осуществляется быстрыми и интуитивно понятными способами. Тим Бернерс-Ли определил это понятие еще шире: «World Wide Web – это Универсум доступной через сеть информации, воплощение человеческого знания» .
Web представляет собой графический интерфейс к Интернету, позволяющий доставлять и обрабатывать информацию, содержащуюся в специально отформатированных документах и включает в себя три основных компонента: Hypertext Markup Language (HTML), HyperText Transfer Protocol (HTTP), Universal Resource Locator (URL).
<span>Гипертекст (hypertext) — способ организации документов или баз данных, при котором соответствующие фрагменты документов или информации связываются друг с другом ссылками (links, hyperlinks), позволяющими пользователю мгновенно переходить по ним к соответствующим документам или информации, следуя по ассоциативному пути.</span>
Var a2,a,c,sym:
integer;
begin
for a:=100 to 200 do begin
a2:=a;
while (a2<>0) do begin
c:=a2 mod 10;
a2:=a2 div 10;
end;
if (a mod 7 = 0 ) and ((c=1) or (c=4)) then sym:=sym+a;
end;
writeln('сумма чисел от sym=',sym);
end.
//PascalABC.NET
var
m : integer;
begin
// Зарезервируем массив [0..9] для подсчета повторов
var a := ArrFill(10, 0);
// Запрос пользователю ввести положительное число
repeat
m := ReadlnInteger('Введите 0 или положительное число ')
until m >= 0;
// Подсчет количества повторяющихся цифр
while m > 0 do begin
a[m mod 10] += 1;
m := m div 10
end;
// Найдем в массиве повторы от 2 и более раз?
if a.FindIndex(x -> x>=2) = -1 then
// Повторов не найдено. Вывод сообщения
writeln('Нет повторов.')
else begin
// Повторы есть.
write('Повторяются: ');
// Выведем повторяющиеся цифры
for var i := 0 to 9 do
if a[i] > 1 then write(i, ' ')
end
end.
