Помогите 31,30,36 безотлагательно

Помогите 31,30,36 безотлагательно

Задать свой вопрос
Stepan Demochko
Это всё на Паскале?
Зарезина Альбина
нет на другом не паскаль
Marija Shelepenko
пожалуйста
Varvara Filatkova
Бейсик? Си?
Регина Гайнетдина
да бейсик
Нелли Каравайчик
QBasic или VisualBasic ?
Константин Ашнин
хоть какой
Генка Бачило
а длинно ответа ждать?
Вадим
Раз QBasic подходит - минут 15-20
Оксана Рябышко
А блок схему можете сделать?
1 ответ
30)

DIM A%, Min%, Max%

CLS
INPUT A
Min = A
Max = A
WHILE (Alt;gt;0)
IF Alt;Min THEN
Min = A
END IF
IF Agt;Max THEN
Max = A
END IF

INPUT A
WEND
PRINT ;"Min = "; Min
PRINT ;"Max = "; Max
END



31)

DIM N%, F

CLS
F = 1
INPUT "N = ", N
FOR i = 1 TO N
F = F*i

NEXT i

PRINT ;"N! = "; F

END



36)

DIM d%, Namp;, Samp;
CLS
INPUT "N = ", N
S = Абс(N)
d = 0
WHILE ((S gt; 0) AND (d lt;= N / 2))
d = d + 1
IF N MOD d = 0 THEN
S = S - d
END IF
WEND
IF S = 0 THEN
PRINT N; " - sovershennoe ";
ELSE
PRINT N; " - NE sovershennoe";
END IF
END
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт