var
i, si, N, ss: Integer;
s: string;
begin
Write ('Введите N: ');
ReadLn (N);
s := IntToStr (N);
ss := 0;
for i := 1 to Length (s) do begin
si := StrToInt (s [i]);
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.
// второй вариант решения
var
si, N, ss: Integer;
begin
Write ('Введите N: ');
ReadLn (N);
ss := 0;
while N > 0 do begin
si := N mod 10;
N := N div 10;
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.
#include <iostream>
using namespace std;
int main() {
string a,b;
int m,k=0;
cout<<"a = "; cin>>a;
cout<<"b = "; cin>>b;
int ind=b.length();
if (a.length()==b.length())
while ((a[k]==b[k]) && (k<b.length()-1)) k++;
for (int i=k; i<b.length()-1; i++) {
if (b[i]==48) break;
m=b[i+1]-48;
if (i<b.length()-2) m--;
if ((b[i]-48)*m < max((b[i]-49),1)*9) {
if ((b[i]-49==0) && (i>0)) continue;
ind=i+1; b[i]--; break;
}
}
for (int i=ind; i<b.length(); i++) b[i]='9';
if (b[0]=='0') b.erase(0,1);
cout<<b<<endl;
system("pause");
return 0;
}
Задача 3: Гвоздики
В дощечку в ряд вбито 10 гвоздиков, таким образом, получилось 9 последовательных промежутков между ними. Длины промежутков (подряд, слева направо) оказались равны
7, 2, 8, 4, 3, 9, 5, 1, 6.
Между некоторыми соседними гвоздиками можно натянуть верёвочку, будем считать длину этой верёвочки равной длине промежутка. Вам необходимо привязать верёвочки так, чтобы к каждому гвоздику была привязана верёвочка хотя бы с одной стороны, при этом суммарная длина всех верёвочек была бы минимальной.
ответ запишите в виде последовательности из 9 чисел, равных 0 или 1. Число 0 означает, что в соответствующем промежутке нет верёвочки, число 1 означает, что в этом пр
Объяснение: