#include <iostream>
#include <stdlib.h>
#include <time.h>

int main()
{
  srand(time(NULL));

  int a[11];
  for (int i = 1; i < 12; ++i){
  a[i] = rand() \% 20 +1;
  if (!(a[i] \% 2)) std::cout << a[i] << std::endl;
  }
<span> return 0;
</span>}

0 0

4 года назад

НАПИСАТЬ ПРОГРАММУ ЖЕЛАТЕЛЬНО В BASIC,можно и в PASCALФедя пытается протолкнуть в форточку размерами X см и Y см свою голову, дл

Tania28

Составим условие прохождения окружности длины С в прямоугольник со сторонами х и у. Очевидно, что диаметр окружности должен быть меньше минимальной из длин сторон.
$\displaystyle min(x,y) \ \textgreater \ \ C; \ C=\pi d \to d= \frac{C}{\pi}; \quad min(x,y) \ \textgreater \ \frac{C}{\pi}$

'MS Qbasic 1.0
INPUT "x,y=", x, y
INPUT "C=", C
pi = 4 * ATN(1)
IF x < y THEN
   min = x
ELSE
   min = y
END IF
IF min > C / pi THEN
   PRINT "YES!!!"
ELSE
   PRINT "No"
END IF

0 0

4 года назад

Помогите пожалуйста, очень срочно нужно решение

Дионисий82

Полный код на паскале

var
    i: integer;
    s: real;

begin
    s := 0;
    for i := 12 to 2001 do
        s := s + i;
    writeln(s);

    s := 1;
    for i := 2 to 201 do
        s := s * i / (i + 2);
    writeln(s);

    s := 1;
    for i := 1 to 33 do
        if i mod 3 = 0 then s := s * 2;
    writeln(s);

    s := 2;
    i := 10;
    while i <= 13 do
    begin
        s := s + 11;
        i := i + 1;
    end;
    writeln(s);
end.

Вывод программы и ответы соответственно
2002935
0.000146320050724284
2048
46

0 0

3 года назад