Помогите с Qbasic , пожалуйста
10-11 класс
|
DIM s AS STRING
INPUT "Введите слово: "; s
IF LCASE(s) = "бит" THEN
PRINT "единица измерения информации"
ELSE
PRINT "такого слова я не знаю"
END IF
END
Блок-схема во вложении.
Другие вопросы из категории
заполняя таблицу:
N N=2"i I(битов) К I=К умножить i (битов)
8 ? ? 200 ?
16 ? ? 110 ?
64 ? ? 120 ?
128 ? ? 100 ?
256 ? ? 80 ?
program lab7;
var x: array [1..100] of real;
i: integer;
s: real;
n:=53;
begin
cls;
s:=0;
writeln ('Введите элементы массива:');
for i:=1 to n do beginwrite ('x[',i,']=');
readln (x[i]);
s:=s+x[i];
end;
writeln ('Полученная сумма равна ', s);
begin
for i:=1 to n do
begin
x[i]:=random(100);
write(x[i]:5);
s:=s+x[i];
end;
writeln;
writeln ('Полученная сумма равна ', s);
end;
end.
ВОЛК --- _ _ _ _ --- _ _ _ _ --- _ _ _ _ --- КОЗА
Читайте также
ракета запускается с земли со скоростью V(км час) в направлении движения земли по орбите вокруг солнца. составить программу,определяющую результат запуска ракета в зависимости от скорости V.
Известно,что при V16,4 ракета покинет солнечную систему.
Вычислить разность между наибольштм и наименьшим элементами массива
элементов.Вывести на экран исходную таблицу и резултат программы.
Найти произведения элементов массива А. удовлетворяющих условию:
c<=A[i]<=d.