С помощью гиперссылки можно перейти с сайта на другую страницу. Достаточно одного клика по гиперссылке. Ее так и назвали, потому, что за одну секунду переводит на другую страничку или другой сайт.
Все четные трехзначные числа - это больше и равно 100. Ставишь условие - проверку на четность не четность, после отрицательного решения - переменную которая будет считать сумму всех нечетных чисел, а если условие истинно - после него условие для чисел больше или равно 100 и переменная-счетчик для подсчета количества всех четных трехзначных чисел.
Var
a,b,h,x:real;
begin
Write('Начальное значение, конечное значение, шаг: ');
Read(a,b,h);
x:=a;
while x<=b do
begin
Writeln(x:7:4,cos(x)+tan(x):15:8);
x:=x+h
end
end.
Контрольное решение
Начальное значение, конечное значение, шаг: -3 3 0.25
-3.0000 -0.84744595
-2.7500 -0.51138448
-2.5000 -0.05412132
-2.2500 0.61045399
-2.0000 1.76889303
-1.7500 5.34213387
-1.5000 -14.03068275
-1.2500 -2.69424731
-1.0000 -1.01710542
-0.7500 -0.19990759
-0.5000 0.33128007
-0.2500 0.71357050
0.0000 1.00000000
0.2500 1.22425434
0.5000 1.42388505
0.7500 1.66328533
1.0000 2.09771003
1.2500 3.32489204
1.5000 14.17215715
1.7500 -5.69862598
2.0000 -2.60118670
2.2500 -1.86680124
2.5000 -1.54816591
2.7500 -1.33722027
3.0000 -1.13253904
CLS
INPUT a
m=0
FOR I=1 TO a
INPUT b
IF (b mod 10=8) AND b>m THEN m=b
END IF
NEXT
PRINT m
END
var
a: array [1..5, 1..5] of byte;
min: array [1..5] of byte;
i, j: byte;
begin
for i := 1 to 5 do min[i] := 100;
for i := 1 to 5 do
for j := 1 to 5 do
begin
a[i, j] := random(0, 99);
if (min[i] > a[i, j]) then min[i] := a[i, j];
end;
for i := 1 to 5 do
begin
for j := 1 to 5 do
write(a[i, j]:2, ' ');
writeln('- ', min[i]);
end;
<span>end.</span>
