Var a: array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
readln(a[i]);
if (a[i] mod 2 = 0) and (a[i] > 0) then writeln ('Положительное и четное: ', a[i]);
end;
<span>end.
//Программа проверяет каждое число при вводе, т.е. если введённое число является положительным и четным, то программа его сразу же выводит.</span>
var
a,b,c,n:integer;
begin
n:=0;
writeln("Введите 3 числа");
readln(a,b,c);
if a<0 then inc(n);
if b<0 then inc(n);
if c<0 then inc(n);
writeln("Из них ", n, " отрицательные.");
end.
Что нужно сделать в этом задании?
#include <iostream>
using namespace std;
int main()
{
int A,B,C;
cin >> A >> B >> C;
for(int i = A; i <= B; i++)
{if(i % C == 0) cout << i << " ";}
return 0;
}