773
Это наибольшее трехзначное, а всего 12 трехзначных чисел
<span>
<span><span>
773
</span>
<span>
764
</span>
<span>
755
</span>
<span>
746
</span>
<span>
737
</span>
<span>
674
</span>
<span>
647
</span>
<span>
575
</span>
<span>
557
</span>
<span>
476
</span>
<span>
467
</span>
<span>
377
Программу можно посмотреть Alt+F11
</span></span></span>
В блок входит 6 ячеек (см. рисунок в прилагаемом файле).
Var
n, max, i, d: integer;
begin
readln(n);
max := 0;
for i := 1 to n do
begin
readln(d);
if (d mod 10 = 2) and ((max < d) or (max = 0)) then
max := d;
end;
writeln(max);
end.
Var radius, visota, plotnost: integer;
ploshad, obiem, massa: real;
begin
write('Введите радиус = ');
readln(radius);
write('Введите высоту = ');
readln(visota);
write('Введите плотность = ');
readln(plotnost);
ploshad := 3.14 * radius * radius;
obiem := ploshad * visota;
massa := obiem * plotnost;
writeln('Масса = ', massa);
writeln('Объем = ', obiem);
writeln('Площадь = ', ploshad);
end.
В двух словах - поиск таких элементов А которые не встречаются в векторе С
как делается
пробегаем по вектору А
при каждом новом элементе обнуляем флаг К
продегаем по вектору С
сравниваем текущий элемент А с текущим элементом С
если равны, то меняем флаг К на 1
когда текущий элемент А сравнили со всеми элементами С и флаг К остался нулем, то значит не нашли равных и выводим значение текущего элемента А на экран
и тд