Var x,s:integer;
begin
s := 0;
read(x);
while x <> 0 do
begin
if (x mod 3 = 0) and (x mod 10 = 4)
then s := s + x;
read(x)
end;
write(s)
end.
//Dev-C++ 4.9.9.2
//Пароль, как можно догадаться, UVAO-chan
#include <iostream>
#include <string>
using namespace std;
int main(){
string s,password;
cin>>password;
if(password!="UVAO-chan")return 0;
cin>>s;
cout<<s.length();
cin.get();
cin.get();
return 0;
}
Пример ввода:
UVAO-chan
124
Пример вывода:
3
Const m=24;
var k6,k5,n:integer;
begin
for k6:=0 to m div 6 do
for k5:=0 to (m-k6*6) div 5 do
if (m-k6*6-k5*5) mod 2 =0 then<span> n:=n+1;
</span>writeln(n);
end.
Результат:
9