Program qq;
var a:array[1..n] of integer;
i,k,s,SA:integer;
begin
for i:=1 to N do readln(A[i]);
k:=0; SA:=0; s:=0;
for i:=1 to N do
If (A[i]mod2=0) and (A[i]mod3<>0) then begin
k:=k+1;
s:=s+A[i];
end;
SA:=s/k;
writeln(k, s, sa);
<span>end.</span>
История:даты
География: контененты
Биология:бактерии,
Формат ячеек относится к Exel. В Excel
все ячейки являются программируемыми элементами и имеют свой специальный
формат.
Var a,b,c:integer;
begin
readln(a,b,c);
if (a<=b) and (b<=c) then
begin
a:=a*a;
b:=b*b;
c:=c*c;
end
else if (a>b) and (b>c) then
begin
if a<b then a:=b;
if a<c then a:=c;
b:=a; c:=a;
end
else
begin
a:=a*(-1);
b:=b*(-1);
c:=c*(-1)
end;
writeln(a:4, b:4, c:4);
<span>end.</span>
#include <string>
#include <iostream>
using namespace std;
int main(){
string s;
cin>>s;
if(s[0]!='1'){
cout<<"No";
cin.get();
cin.get();
return 0;
}
for(int i=1;i<s.length();i++){
if((s[i]!='1') && (s[i]!='0')){
cout<<"No";
cin.get();
cin.get();
return 0;
}
}
cout<<"Yes";
cin.get();
cin.get();
return 0;
}<span>
</span>