Эквивалентно для любых чисел 1000<n<2000
int arr[4] = { 1020, 1599, 6289, 4434 };
int count = 0;
for (int i = 0; i < 4; ++i) {
int check = (arr[i] \% 100) / 10;
if (check \% 2 == 0) {
++count;
}
}
cout << "Result: " << count << endl;
Var a:array[1..15] of integer; n:integer; i,k:real;
begin
writeln('введите начальное значение');
readln(i);
writeln('введите шаг изменения');
readln(k);
writeln('введите кол-во элементов');
readln(n);
while n<>0 do begin
writeln(i,' драхм = ',i*1.77185,'г = ',i*0.06249,' унций');
n:=n-1;
i:=i+k;
end;
end.
Uses crt;
var a,b,c: integer;
begin
for a:=1 to 9 do
for b:=1 to 9 do
for c:=0 to 9 do
if a+10*a+b+100*a+10*b+c=100*b+10*c+b
then writeln(a,' ',b,' ', c);
<span>end.</span>
Uses
Math;
...
MyNumber:=RandomRange(Start, Stop);//1 вариант
MyNumber:=Random(Stop)+Start;//2 вариант. Для него не нужен модуль <span>Math;
</span>Start - От
Stop - До