Решить на паскале. заданы площади круга s1 и квадрата s2. определить поместится ли круг в квадрате. решить при а) s1=70, s2=36, 74 б) s1=0, 86, s2=0, 64 квадрат поместится в круге, если диаметр окружности меньше или равен стороне квадрата.диагональ квадрата и диаметр окружности найти из площади фигур. результат вывести на экран.

program nm13; uses crt; var s1,s2,d,a,diag: real; beginwriteln('vvedi ploschad kruga i ploschad kvadrata'); readln(s1); readln(s2); d: =2*sqrt(s1/3.14); a: =sqrt(s2); diag: =2*sqrt(2*a*a); if diag> d then writeln (' krug pomestits9 v kvadrate ') else writeln (' krug ne pomestits9 v kvadrate ');

readln;

end.

#код на ruby 2.2.3p173 count = 0 for i in 0..2**9-1       s = ("000000000"+i.to_s(2))[-       vertix = 0       s.chars.each {|c|             vertix = (vertix + (c == "1" ? 1 : -1)) % 3 ;             # p [c, vertix]       }       if vertix == 0             p s             count += 1       end end p count вывод 170

ответ:

1)

#include

using namespace std;

int main() {

int n,m;

cout < < "enter number n: ";

cin > > n;

cout < < "enter number m: ";

cin > > m;

for (int i = n; i < = m; i++) {

  if (i % 3 == 0) cout < < i < < endl;

}

}

2)

#include

using namespace std;

int main() {

int n, m, sum=0;

cout < < "enter number n: ";

cin > > n;

cout < < "enter number m: ";

cin > > m;

for (int i = n; i < = m; i++) {

  if (i % 2 == 0) sum+=i;

}

cout < < "result: " < < sum;

}

3)

#include

using namespace std;

int main() {

long n,m, max=0;

cout < < "enter number: ";

cin > > n;

m = n;

  for (int i = 10; n> 0; ) {

  if (n % i > max)  

  max = n % i;

  n = n / i;

}

  cout < < "result: " < < max;

}

объяснение: