Определить количество положительных чисел из 2 чисел, вводимых с клавиатуры
rustamahiyarov
1
15.11.2019 07:59
2
Другие вопросы по теме Информатика
smolekovmax
08.08.2019 16:00
pandaokia
08.08.2019 16:00
Ульянатв
25.02.2021 16:31
dakusy2006
15.03.2021 09:07
rafik14
15.03.2021 09:11
Аскарбинка25
08.07.2019 12:20
uncu4ek
06.03.2019 21:00
Poznavatel01
06.03.2019 21:00
Популярные вопросы
- Решите ! билет в музей стоит 450 руб. для взрослого и 150 руб. для школьника,...
1 - Решите , разложите на множители 3а^2-6а+3= 2х^3+2у^3= а^4-b^4= x^8-x^2=...
1 - Поставте знаки препинания и сделайте синтаксический разбор предложения(мы...
1 - Составить деловое письмо: 1) и обращение к адресату 2)изложение того, о чем...
3 - 4-5 речень синонимами и антонимами...
3 - Золотое зерно - это эпитет или метафора?...
2 - Из кадушки вылезло пышное петя съел сладкий медовый...
2 - Подчеркните грамматическую основу предложения. укажите, чем выражены подлежащее...
3 - Значение крепости каменец подольская в ,...
2 - Найдите корень уравнения 2x*x-x-1=x*x--x*x)...
3
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.