const
n = 4; //кол-во людей
g = 1995;//год
m = 5; //номер месяца
var
i,gR,mR,k : integer;
begin
k := 0;
for i := 1 to n do
begin
writeln ('Введите год и месяц');
read (gR,mr);
if (gR = g) and (mr = m) then
k := k +1;
end;
writeln ();
writeln (k);<span>
end.</span>
Для определения, является ли число положительным достаточно сравнить его с нолём. Число больше ноля - положительное, меньше ноля - отрицательное. Сам по себе ноль не является ни положительным, ни отрицательным числом, но т.к. на ход решения это не влияет, этой деталью можно пренебречь. Алгоритм:
1. Начало
2. Ввести числа а и b
3. Если число a > 0 то запомнить a = a * 10
иначе запомнить a = a * a
4. Если число b > 0 то запомнить b = b * 10
иначе запомнить b = b * b
5. Вывести числа a и b
6. Конец
Однажды начали спорить холодильник, пылесос и компьютер, кто же полезнее и нужнее. У каждого были свои аргументы и доказательства.
Холодильник вышел вперед и начал говорить:
-Без меня бы человек не смог хранить еду и она бы быстро портилась.
-А без меня,- начал пылесос,- не было бы чистоты в доме.
-А без меня,- вскричал компьютер,- люди не могли бы производить сложные вычисления и дети бы не смогли делать домашнее задание.
Если бы в этот момент не подошел человек, то этот спор бы затянулся надолго.
-Вы мне очень нужные и изобретая вас я не хотел кого-то выделять. Вы важны, только каждый в своей сфере
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Сколько чисел обработать?');
var s:=1;
loop n do begin
var k:=ReadInteger('Введите число');
if k>0 then s*=k
end;
Writeln('Произведение положительных чисел из ',n,' составляет ',s)
end.
<u>Пример</u>
Сколько чисел обработать? 5
Введите число 7
Введите число -4
Введите число 0
Введите число 9
Введите число -2
Произведение положительных чисел из 5 составляет 63