Войти Регистрация Спроси ai-bota

Определить количество положительных чисел из 2 чисел, вводимых с клавиатуры

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Begzodik

20.10.2021 19:20

29. запишите в двоичном виде отрицательное однобайтное число, если соответствующее ему положительное число в двоичном виде равно 1111001...

Alfa1sames

06.11.2022 00:45

Задача 2: Прожектора На дискотеке в ряд стоят три прожектора, которые поочерёдно светят в следующем порядке: левый, средний, правый, средний, левый, средний, правый, средний и т.д....

bykvav

25.09.2021 00:14

Який цикл потрібно використовувати, коли потрібно спочатку виконати деяку послідовність дій, а потім визначити, чи є потреба повторювати ці дії ще раз? цикл з лічильникомцикл з післяумовоюцикл...

Danyaukos

22.04.2023 15:39

Составить программу нахождения произведения нечетных чисел от 1 до 100 (цикл с постусловием) Составить программу нахождения суммы четных от 2 до 100...

Danielllllllll

18.08.2022 15:29

Укажите верное высказывание. Информатика....

nastya291204061012

19.05.2021 17:41

Який тип змінної використовується в коді: int a = 5...

Pikaduwert

17.04.2020 15:38

Напиши программу, которая вводит с клавиатуры целое число N и массив из N натуральных элементов и выводит на экран в столбик количество цифр каждого элемента массива....

мирахуснатдинова

17.11.2021 19:09

Напишите программу на алгометрическом языке , нарисуйте блок схему постройте транссировочную таблицу для следующего задания. Вывод суммы 1+2+4+8+...+128....

hadmatter

24.12.2021 04:15

с формулами Эксель с формулами Эксель >...

usokolova071

17.01.2023 04:10

Який вираз називають логічним? Наведіть приклади...

Ответ:

Unikorn111

10.10.2020 13:29

var

a, b: Real;

c : Integer;

begin

Write ('A, B = ');

ReadLn (a, b);

c := 0;

if a > 0 then

Inc (c);

if b > 0 then

Inc (c);

WriteLn ('Количество положительных = ', c);

ReadLn;

end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку