Var x:integer;
begin
writeln('Введите чилос x: ');
readln(x);
if x>= 100 then
if (not odd(x)) then
writeln('TRUE')
else
writeln('FALSE')
else
writeln('Число не трехзначное');
<span>end.
Надеюсь правильно понял тебя и составил программу верно.</span>
Номер кратен 5 - это строки номер 5, 10, 15 и 20, т.е. от 5 с шагом 5.
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (m,n):=(20,10);
Writeln('*** Исходный массив ***');
var E:=MatrRandom(m,n,1,99);
E.Println(3); Writeln(3*E.ColCount*'-');
var p:=BigInteger(1);
ForEach var i in Range(4,m-1,5) do
p:=E.Row(i).Where(t->t>4).Aggregate(p,(x,y)->x*y);
Println('Произведение равно',p)
end.
program test;
var i:integer; n, sum: real;
begin
sum:=0;
write('Enter 10 numbers: ');
for i:=1 to 10 do
begin
read(n);
if n < 0 then
sum:=sum+n;
end;
writeln('Sum = ', sum);
readln;
end.
PascalABC.NET
type mass = array [1..4] of integer;
var a : mass;
i : integer;
function min(c : mass) : integer;
var
i,minim : integer;
begin
minim := c[1];
for i := 2 to 4 do
if c[i] < minim then
minim := c[i];
result := minim;
end;
begin
for i := 1 to 4 do
readln (a[i]);
writeln ('min = ',min(a));<span>
end.
Как параметр я использовал массив из четырех элементов. Можно использовать просто переменные и через IF все прописать</span>