сервис вопросов и ответовПомогите записать в qbasic.
5-9 класс|
|
Ввести
10 чисел. Проверить, есть ли среди введенных ноль. Если есть, вывести на экран
«Есть 0», если нет – «Нет 0».(10 чисел имеется в виду любых десять)
Ageev9797
01 сент. 2014 г., 1:15:36 (9 лет назад)
Cat14022000
01 сент. 2014 г., 3:34:18 (9 лет назад)
CONST n = 10
DIM a(1 TO n) AS INTEGER
DIM i AS INTEGER, IsNull AS INTEGER
PRINT "Вводите числа"
FOR i = 1 TO n
INPUT a(i)
NEXT i
i = 1
IsNull = 0
DO WHILE i <= n
IF a(i) = 0 THEN IsNull = 1
i = i + 1
LOOP
IF IsNull = 1 THEN
PRINT "Есть 0"
ELSE
PRINT "Нет 0"
END IF
END
Ответить
Другие вопросы из категории
за какое наименьшее количество ходов можно разом уничтожить три ряда квадратиков игре Тетрис Цифры около фигур означает порядок их появления
А)5 Б)2 В)3 Г)4
1.Рассчитайте объём видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением 512 х 768 и
количеством отображаемых цветов, равным 65536.
В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] - градусы за первый день. Dat[2] - за второй и т.д.)
Определите, какое число будет напечатано в результате работы следующей программы.
Паскаль.
Var k, m: integer;
Dat: array[ 1..10] of integer;
Begin
Dat[ 1] := 12;
Dat[ 2] := 15;
Dat[ 3] := 17;
Dat[ 4] := 15;
Dat[ 5] := 14;
Dat[ 6] := 12;
Dat[ 7] := 10;
Dat[ 8] := 13;
Dat[ 9] := 14;
Dat[ 10] := 15;
m := 0;
for k := 1 to 10 do
if Dat[ k] =15 then
begin
m := m+1
end;
writeln(m);
End.
Читайте также
Помогите записать задачу в Turbo Pascalе Начав тренировки, лыжник в первый день пробежал 10км. Каждый следующий день он увеличивал пробег
на 10% от пробега предыдущего Определить:
Вы находитесь на странице вопроса "Помогите записать в qbasic.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.