Найдите и выведите на экран все двузначные числа, сумма цифр которыx не меняется при умножении на 2. (например, 27 и 27*2=54, сумма цифр чисел 27 и 54 равна 9) язык программирования паскаль авс

Var i,tmp,s1,s2: integer; begin for i: =10 to 50 do begin tmp: =i;   while tmp < > 0 do begin     s1+=tmp mod 10;     tmp: =tmp div 10;   end; tmp: =i*2;   while tmp < > 0 do begin     s2+=tmp mod 10;     tmp: =tmp div 10;   end; if (s1=s2) then write(i,' '); s1: =0; s2: =0; end; end.

  №1. #include< iostream> #include< math.h> using namespace std; long i,sum; int main() { for(i=10; i< =30; i++) { sum+=i; cout< < sum< < endl; } return 0;   } #include< iostream> #include< math.h> using namespace std; long i,sum; int main() {   i=10; sum=0; while(i< =30) { sum+=i; cout< < sum< < endl; i++; }   return 0; } #include< iostream> #include< math.h> using namespace std; long i,sum; int main() {   i=10; sum=0; do { sum+=i; cout< < sum< < endl; i++; } while(i< =30); return 0; } №2 #include< iostream> #include< math.h> using namespace std; long i,a,b,k; int main() {   cin> > a; for(i=1; i< =10; i++) { cin> > b; if(b==a) k++; } cout< < k;   return 0; } #include< iostream> #include< math.h> using namespace std; long i,a,b,k; int main() { i=1; cin> > a; while(i< =10) { cin> > b; if(b==a) k++; i++; } cout< < k; return 0; } #include< iostream> #include< math.h> using namespace std; long i,a,b,k; int main() { i=1; cin> > a; do { cin> > b; if(b==a) k++; i++; } while(i< =10); cout< < k; return 0; } №3 #include< iostream> #include< math.h> using namespace std; long a,b,k; int main() { cin> > a> > b; k=a*a+abs(b)+5*a-10*b; cout< < k; return 0; } №4 #include< iostream> #include< math.h> using namespace std; long a,b,k; int main() { cin> > a; if(a> =0) a++; else a-=2; return 0; } №5 #include< iostream> #include< math.h> using namespace std; double i,u; int main() { for(i=0; i< =10; i+=0.3) { u=i+1; cout< < u< < endl; } return 0; }

  положить пострадавшего в нейтральную позу - горизонтально, при этом старатся двигать его как можно меньше.  проверить наличие пульса - на запястье (можно у основания шеи или за ухом, на уровне мочки) - и наличие дыхания (поднесите к носу и рту зеркальце или любой небольшой предмет с глянцевой поверхностью - при наличии дыхания глянцевая поверхность должна периодически запотевать. при отсутствии пульса и дыхания немедленно приступайте к реанимационным мероприятиям - непрямому массажу сердца и искусственному дыханию.  если пульс и дыхание есть, ослабьте одежду на пострадавшем, обмахивайте его чем-нибудь, увеличивая приток воздуха к дыхательным отверстиям, полезно дать понюхать ватку, нашатырным спиртом .можно слегка (именно слегка, не более того) похлопать пострадавшего по щекам.