Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной разность этих значений, а если равны, то присвоить пер
10-11 класс
|
еменным нулевые значения. Вывести новые значения переменных A и B.
решение со стороны qbasic
cls
INPUT A
INPUT B
IF A<>B THEN
A=A-B
B=A
ELSEIF
A=0
B=0
END IF
END IF
Другие вопросы из категории
вартість. Гравець сам визначає, які картки виграшні, але за правилами виграшних карток повинно бути стільки ж, скільки програшних. Яку максимальну суму можна виграти?
2. Сколько килобайтов составит сообщение из 384 символов 16-ти символьного алфавита?
а) магазин по продаже компьютеров
б)программное изделие в виде, поставляемом изготовителем
в)устройство обработки информации
г)программа для обслуживания переферийного устройства
Читайте также
Проверить истинность высказывания: «Ладья за один ход может перейти с одного поля на другое». 2) Дано трехзначное число. Проверить истинность высказывания: «Все цифры данного числа различны». 3)Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.
х присвоить значение, равное полусумме значений а и b;
b) удвоить значение переменной х;
c) переменной целого типа х присвоить значение на 1 меньшее исходного;
d) сменить знак у переменной х на противоположный.
(Определить функцию, позволяющую распознавать четные числа).
разность чисел p и q.
2.Что будет на экране после выполнения следующих команд: а) Writeln(9); Write(5); Writeln(3); б) Writeln(4*2); Write('5-3'); Writeln('5+1=',5+1);
3.Укажите различия циклов While и Repeat
4.Дана строка. Определить сколько пробелов в этой строке
6.Дано четырехзначное число. Вывести на экран сумму цифр этого числа
7.Найти количество цифр целого числа N
8.Напишите команды, которые выполняют следующие действия: а) ввод переменной d б) описать переменные m и n вещественного типа. в) переменной s присвоить разность чисел p и q
9.Что будет на экране после выполнения следующих команд: Writeln(5-3); Write('5+3'); Writeln('5*4=',5*4);
10.Когда нельзя применять цикл for
11.Дана строка. Определить сколько букв в этой строке
12.Дано трехзначное число. Вывести на экран все его цифры столбиком
13. Найти количество цифр целого числа N(+блок-схема)