Решите (пожалуйста) мою задачу. Стану крутой - выручу! Ваши труда оплачиваемые.

[Princesska]

Язык написания программ С
Задачки прикреплены в файлах типа .doc
UA - на украинском языке.
RUS - на русском языке.

или так :

Задача № 1

С клавиатуры ввести границы числового промежутка. Печатать все числа из этого промежутка, содержащие цифру 9. Указать количество найденных чисел или вывести сообщение об их отсутствии.

Задача № 2

Сформировать массив из 50-ти случайных чисел, которые попадают в заданного промежутка A.. B. Печатать сформированный массив. Затем удалить из него все нечетные элементы. Напечатать массив после сокращения и указать сколько элементов удален. Подсказка: для изъятия сдвинуть все последующие элементы массива влево.

Задача № 3

С клавиатуры ввести предложения. Удалить из него слово, порядковый номер которого задает пользователь. Если номер слова превышает реальное количество слов в предложении, то вывести соответствующее сообщение.

Задача № 4

Ввести прямоугольную матрицу целых чисел. Печатать номера строк матрицы, все элементы которых нечетные, или вывести сообщение об отсутствии таких строк. Переставить элементы всех других строк в обратном порядке.

Задача № 5

С клавиатуры ввести набор данных с информацией о наличии санаторных путевок: <Название санатория>, <Местонахождение>, <Лечебный профиль>, <Число путевок>. Распечатать введенные в виде таблицы, згрупувавшы их за лечебными профилями санаториев. В пределах каждой группы данные отсортировать по названиям санаториев.

Заранее спасибо, правила читала, по этому в название не использовала помогите выганяют и т.д. Спасибо за понимание.

P.S. могу оплатить вашу работу. Есть возможность пополнить ваши Web - Money с помощью I-box автоматов. Для этого нужны WMU кошельки.
Номера кошельков пишите сюда или emko@i.ua

[Charmer]

Решение на первую задачу:

{$APPTYPE CONSOLE}

uses
SysUtils;

var
j,n,m: integer;
s:string;
flag:boolean;
begin
flag:=false;
Writeln('BBedite granici');
readln(n,m);
for i:=n to m do
begin
flag:=false;
s:=FloatToStr(i);
for j:=1 to Length(s) do
begin
if (Copy(s,j,1)='9') then flag:=true;
end;
if (flag=true) then
begin
write(i);
writeln;
end;
end;
readln;
end.

[Princesska]

Сообщение от Charmer

Решение на первую задачу:

{$APPTYPE CONSOLE}

uses
SysUtils;

var
j,n,m: integer;
s:string;
flag:boolean;
begin
flag:=false;
Writeln('BBedite granici');
readln(n,m);
for i:=n to m do
begin
flag:=false;
s:=FloatToStr(i);
for j:=1 to Length(s) do
begin
if (Copy(s,j,1)='9') then flag:=true;
end;
if (flag=true) then
begin
write(i);
writeln;
end;
end;
readln;
end.

огромное спасибо, извиняюсь что забыла уточнить на каком языке. Язык C. Pascal к сожалению не подходит, буду пробывать на этой основе переделать, если получиться =(

[Charmer]

Понятно! на С так на С =)

[Жека vip]

Люди момогите плиз кто может,надо составить программу подсчета числа положительных однобайтных элементов в массиве из 6 элементов.Результат подсчета записан в регистр R0

[Geremy]

Задача № 1

С клавиатуры ввести границы числового промежутка. Печатать все числа из этого промежутка, содержащие цифру 9. Указать количество найденных чисел или вывести сообщение об их отсутствии.

#include<stdio.h>
int main()
{
    int a;
    int b;
    int k;
    int m;
    k=0;
    printf("BBegume a:\n");
    scanf("%d",&a);
    printf("BBegume b:\n");
    scanf("%d",&b);
    int n;
    for(m=0;m<=10000;m++)
    {
        for(n=a;n<=b;n++)
        {
            if(n==-9-10*m || n==9+10*m)
            {
                k++;
            }
        }
    }
    if(k>0)
    {
        printf("KoJl-Bo 4uceJl %d\n",k);
    }
else printf("9 Hemy!");
}

Решение не идеально =) но как то так. Число m задавать можно по-разному , взависимости от длины промежутка.

[Princesska]

Сообщение от Geremy

Решение не идеально =) но как то так. Число m задавать можно по-разному , взависимости от длины промежутка.

Спасибо за понимание кошелек имееться , если да напиши, я заплачу.

[Geremy]

спасибо, не надо

[RIO]

Реализую быстро и недорого, гарантирую грамотный подход и хорошую работоспособность . . . Обращайтесь !

ICQ : 371824579

E-Mail : forge@europe.com

Портфолио : http://www.weblancer.net/users/Forge/

[xNut]

Все сделаю, но за деньги