Дам 100 баллов?

Zerter1 21 окт. 2020 г., 02:45:09

INPUT "N = ", N& ;

' ex 1

m& ; = N& ;

s = 0

DO WHILE m& ; < ; > ; 0 s = s + (m& ; MOD 10) m& ; = m& ; \ 10

LOOP

PRINT "s = " ; s

' ex 3

m& ; = N& ;

p& ; = 1

DO WHILE m& ; < ; > ; 0 p& ; = p& ; * (m& ; MOD 10) m& ; = m& ; \ 10

LOOP

PRINT "p = " ; p& ;

' ex 4

m& ; = N& ;

k = 0

DO WHILE m& ; < ; > ; 0 k = k + 1 m& ; = m& ; \ 10

LOOP

PRINT "k = " ; k

Тестовое решение :

Y : \ qbasic> ; QBASIC.

EXE

N = 56342345

s = 32

p = 43200

k = 8

Чтобы продолжить, нажмите любую клавишу.

Амелия15 1 апр. 2020 г., 14:47:33 | 5 - 9 классы

Составить программу на языке QBasic для решения уравнения ax + b = 0?

Составить программу на языке QBasic для решения уравнения ax + b = 0.

Крис111 2 нояб. 2020 г., 21:16:46 | 5 - 9 классы

Составить программу в QBasic Условие : Составить программу в QBasic Условие : Составьте программу нахождения произведения двух наибольших из трех введенных чисел?

Составить программу в QBasic Условие : Составить программу в QBasic Условие : Составьте программу нахождения произведения двух наибольших из трех введенных чисел.

Dream0201 10 мая 2020 г., 16:09:24 | 10 - 11 классы

Написать программу обращения заданного слова (Qbasic)?

Написать программу обращения заданного слова (Qbasic).

Катюшка9713 13 авг. 2020 г., 11:46:48 | 5 - 9 классы

Написать программу нахождения произведений чисел кратных 3 на отрезке от 1 до 11 на qbasic?

Написать программу нахождения произведений чисел кратных 3 на отрезке от 1 до 11 на qbasic.

Masha58588 3 апр. 2020 г., 23:31:54 | 5 - 9 классы

Составить программу на языке программирования QBASIC для нахождения суммы квадратов первых 10 натуральных чисел?

Составить программу на языке программирования QBASIC для нахождения суммы квадратов первых 10 натуральных чисел.

С подробным решением!

Misssukhodoeva 29 нояб. 2020 г., 12:10:28 | 5 - 9 классы

ПОМОГИТЕ ПОЖАЛУЙСТА НАПИСАТЬ ПРОГРАММУ В QBASIC?

ПОМОГИТЕ ПОЖАЛУЙСТА НАПИСАТЬ ПРОГРАММУ В QBASIC!

Периметр треугольника равен Р, длина одной стороны равна А, другой - В.

Найти длину третьей стороны.

Grigorybel 18 апр. 2020 г., 05:38:58 | 5 - 9 классы

Помогите пожалуйста?

Помогите пожалуйста!

Написать программу в qbasic, которая создает иллюзию движения окружности на экране монитора.

Frog2003ff 31 авг. 2020 г., 18:12:09 | 10 - 11 классы

Составьте пожалуйста на языке QBasic?

Составьте пожалуйста на языке QBasic.

Студентка181 31 окт. 2020 г., 21:59:00 | 5 - 9 классы

Написать сообщение о языке программирования паскаль пожалуйста помогите?

Написать сообщение о языке программирования паскаль пожалуйста помогите!

Дам 20 баллов!

Кіцюні4ка 13 окт. 2020 г., 23:26:38 | 5 - 9 классы

Помогите написать программу на языке паскаль?

Помогите написать программу на языке паскаль.