Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Помогите по делфи программу сделать

81K
23 мая 2012 года
akrabat3000
5 / / 23.05.2012
1. Среди всех целых чисел от 100 до 300 выбрать и вывести те, которые заканчиваются на цифру 3.
2. Вычислить произведение всех натуральных четных чисел, не превосходящих заданного числа х.
3. Дан массив А[1..10]. Вставить 2 после минимального элемента. Удалить последний четный элемент.
4. Вычислить произведение четных элементов матрицы и сумму элементов, кратных 3.(помогите кто о чем знает )
83K
24 мая 2012 года
evgensp
1 / / 24.05.2012
Я думаю что нет ссылки, которая решает данные задачи
Нужно просто составить алгоритм, а на каком язые писать - без разницы

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;
83K
24 мая 2012 года
nestorf
1 / / 24.05.2012
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

чесно говоря, я согласен с первым постом

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог