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;
}
1) рахуємо кількість моль реагентів визначаємо у якого меньше моль (за ним і будемо рахувати та розв'язувати). n(ВаCI2)-10,4(г)/208(г/моль)-0,05 моль М(ВaCI2)-208 г/моль n(Н2S04)-9,4/98-0,096 моль М(Н2SO4)-98 г/моль Отже меньша кількість речовини належе ВaCI2 2) pівняння реакції та пропорції: ВaCI2+H2SO4->BaSO4 (оcад) + 2НCІ 0,05 моль/1-х моль/1 x(осад)-0,05моль 3) Знайдемо масу: m(BaSO4)-n'M(BaSO4) m(BaSO4)-0,05'233-11,65 г. Відповідь: маса осаду дорів. 11,65г