Помогите по делфи программу сделать
1. Среди всех целых чисел от 100 до 300 выбрать и вывести те, которые заканчиваются на цифру 3.
2. Вычислить произведение всех натуральных четных чисел, не превосходящих заданного числа х.
3. Дан массив А[1..10]. Вставить 2 после минимального элемента. Удалить последний четный элемент.
4. Вычислить произведение четных элементов матрицы и сумму элементов, кратных 3.(помогите кто о чем знает )
2. Вычислить произведение всех натуральных четных чисел, не превосходящих заданного числа х.
3. Дан массив А[1..10]. Вставить 2 после минимального элемента. Удалить последний четный элемент.
4. Вычислить произведение четных элементов матрицы и сумму элементов, кратных 3.(помогите кто о чем знает )
Я думаю что нет ссылки, которая решает данные задачи
Нужно просто составить алгоритм, а на каком язые писать - без разницы
1-я
var
i:integer;
s,l:string;
Begin
l:='';
for i:=100 to 300 do
begin
s:=IntToStr(i);//первожу число в строку
if s[3]='3' then//если третий символ строки тройка - то запоминаю это число
l:=l+s+';';
end;
ShowMessage(l);
End;
Нужно просто составить алгоритм, а на каком язые писать - без разницы
1-я
var
i:integer;
s,l:string;
Begin
l:='';
for i:=100 to 300 do
begin
s:=IntToStr(i);//первожу число в строку
if s[3]='3' then//если третий символ строки тройка - то запоминаю это число
l:=l+s+';';
end;
ShowMessage(l);
End;
2-я задача решается так:
var arr:array of longint;
x, i, a, f:word;
begin
a:=0;
f:=1;
setlength(arr, ((x div 2)));
for i:=2 to x do
begin
if ((i/2) = trunc(i/2)) then
begin
arr[a]:=i;
a:=a+1; //ищем парные числа и выносим их в массив
end;
end;
//даьше числа перемножаются
i:=0;
for i:=1 to a do
begin
f:=f * arr;
end;
end
чесно говоря, я согласен с первым постом
var arr:array of longint;
x, i, a, f:word;
begin
a:=0;
f:=1;
setlength(arr, ((x div 2)));
for i:=2 to x do
begin
if ((i/2) = trunc(i/2)) then
begin
arr[a]:=i;
a:=a+1; //ищем парные числа и выносим их в массив
end;
end;
//даьше числа перемножаются
i:=0;
for i:=1 to a do
begin
f:=f * arr;
end;
end
чесно говоря, я согласен с первым постом