Сначала разбей числа и заноси их в char.
К примеру: число 24 - это 2 и 4, число 14 - это 1 и 4, и т.д.
Далее делай проверку на наличие цифры 4
к примеру:
char num[2];
bool result;
for (int q = 0; q < i; q++)
{
if (num[q] == 4)
result = true;
}
Далее просто с помощью цикла находишь самое маленькое число
к примеру:
for (int i = 0; num < i; i++)
<span>Текстовый редактор,<span>Текстовый процессор</span>
</span>
1) Первое задание
Program Test;
const size = 18;
Var a: array[1..size] of integer; i, k: integer;
Begin
Randomize;
i := 1;
k := 0;
while i <= size do
begin
a[i] := Random(0, 29);
i := i + 1;
end;
i := 1;
while i <= size do
begin
if (a[i] > 15) then
k := k + 1;
i := i + 1;
end;
i := 1;
while i <= size do
begin
Writeln(i, ') ', a[i]);
i := i + 1;
end;
Writeln();
Writeln('k = ', k);
End.
2) 2 задание
Program Test;
const size = 18;
Var a: array[1..size] of integer; i, s: integer;
Begin
Randomize;
i := 1;
s := 0;
while i <= size do
begin
a[i] := Random(0, 29);
i := i + 1;
end;
i := 1;
while i <= size do
begin
if (a[i] mod 2 = 0) then
s := s + a[i];
i := i + 1;
end;
i := 1;
while i <= size do
begin
Writeln(i, ') ', a[i]);
i := i + 1;
end;
Writeln();
Writeln('s = ', s);
End.
P.S. На фотографии не видно часть второго задания. Скорее всего там написано, что нужно посчитать сумму элементов массива с четным значением. Такую программу я и писал.
Начало
Ввод g
d=g
c=d
b=c
a=b
Вывод а
Конец
Или
Ввод g
i=g
a=i
Вывод а
Да вариантов в принципе много
Var a:integer;
begin
readln(a);
if a mod 2=0 then a:=a*a
else a:=a*a*a;
writeln('a = ',a);
end.
Пример:
18
<span>a = 324</span>
