marina1602
1

Помогите Пожалуйста оч оч нужно! задачки

19.05.2008, 19:01. Показов 8124. Ответов 2
Метки нет (Все метки)

Пожалуйста помогите решить несколько задачек,а то я нитё не понимаю Плиз плиз плиз! Я буду очень благодарна!

Линейные алгоритмы:
1)Заданы два целых числа k и d. Используя только арифметические операции, найдите целую и дробную части от деления k на d.
2)Дано действительное число a. Не пользуясь никакими другими операциями кроме умножения, получить a21 за шесть операций; ("21"-в степени)

Условные операторы:
1)Даны два числа. Найти меньшее из них.
2)Заданы два числа. Являются ли они оба большими 20?


Оператор выбора:
1)Дано целое число в диапазоне 1 – 5. Вывести строку — словесное описание соответствующей оценки (1 — "плохо", 2 — "неудовлетворительно", 3 — "удовлетворительно", 4 — "хорошо", 5 — "отлично").

Операторы цикла:
1)Найти все числа, которые делятся на N среди:
всех двухзначных чисел;
2)Даны два целых числа A и B (A < B). Вывести все целые числа, расположенные между данными числами (не включая сами эти числа), в порядке их убывания, а также количество N этих чисел.

3)Написать программу поиска двузначных чисел, удовлетворяющих следующему условию: если к сумме цифр числа прибавить квадрат этой суммы, то получится само число.


Массивы:

1)Дан целочисленный массив размера N. Вывести вначале все его четные элементы, а затем — нечетные.
2)Имеется целочисленный массив n*m элементов.

Символы и строки:

1)Подсчитать, сколько раз в предложенном тексте встречается символ «?».


Воть! Спасибки заранее! Оч прошу...оч оч нужно!


Активен
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.05.2008, 19:01
Ответы с готовыми решениями:

Помогите решить задачки пожалуйста!
1. Найти произведение двух полиномов Pn(x) и Qm(x) 2. Написать программу на языке Паскаль,...

Помогите,пожалуйста,решить задачки
del

Помогите пожалуйста решить 2 задачки, очень нодо!
1) посчитать кол-во вхождений в строку цифр с 0 до 4 2) Удалить все слова, содержащие латинскую...

НАРОД!!! Помогите решить две задачки ПОЖАЛУЙСТА!!!!
Задача 1. На предприятии работают N рабочих по М месяцев каждый получая разную зарплату! Данные...

2
13207 / 6595 / 1041
Регистрация: 10.01.2008
Сообщений: 15,069
19.05.2008, 20:48 2
Заданы два целых числа k и d. Используя только арифметические операции, найдите целую и дробную части от деления k на d.
Код
var k,d,m:Integer;
begin
    readln(k);  readln(d);
    m := 0;
    while k>d do begin
        dec(k,d);
        inc(m);
    end;
    writeln(k,' div ',d,' = ',m);
    writeln(k,' mod ',d,' = ',k);
end.
Дано действительное число a. Не пользуясь никакими другими операциями кроме умножения, получить a21 за шесть операций; ("21"-в степени)
{1} a2 := a*a;
{2} a4 := a2*a2;
{3} a5 := a4*a;
{4} a10 := a5*a5;
{5} a20 := a10*a10;
{6} a21 := a20*a;

Даны два числа. Найти меньшее из них.
Код
if a<b then
    writeln(a,' < ',b)
else if a>b then
    writeln(a,' > ',b)
else
    writeln(a,' = ',b)
Дано целое число в диапазоне 1 – 5. Вывести строку — словесное...
Код
case A of
    1:  writeln('ужос');
    2:  writeln('неуд');
    3:  writeln('удовл');
    4:  writeln('хор');
    5:  writeln('отл');
end;
Подсчитать, сколько раз в предложенном тексте встречается символ «?».
Код
var s:string; i,n:Integer;
begin
    readln(s);
    i := Length(s);
    n := 0;
    while i>0 do begin
        if s[i]='?' then inc(n);
        inc(i);
    end;
    writeln('The "?" character occured ',n,' times.');
end.
0
Почетный модератор
64275 / 47574 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
19.05.2008, 22:23 3
2)Заданы два числа. Являются ли они оба большими 20?

Код
 
if (a>20) and (b>20) then writeln('Yes!')
else writeln('No!');

1)Найти все числа, которые делятся на N среди:
всех двухзначных чисел;

Код
 
for i:=10 to 99 do
if I mod N = 0 then writeln(i);
2)Даны два целых числа A и B (A < B). Вывести все целые числа, расположенные между данными числами (не включая сами эти числа), в порядке их убывания, а также количество N этих чисел.

Код
 
For i:=B-1 downto A+1 do
Writeln(i);

3)Написать программу поиска двузначных чисел, удовлетворяющих следующему условию: если к сумме цифр числа прибавить квадрат этой суммы, то получится само число.

Код
 
For i:=10 to 99 do
If  I div 10+I mod 10+sqr( I div 10+I mod 10 )=I then
Writeln(i);

1)Дан целочисленный массив размера N. Вывести вначале все его четные элементы, а затем — нечетные.

Код
 
For i:=1 to n do
 If I mod 2=0 then write(a[i],' ');
For i:=1 to n do
 If I mod 2<>0 then write(a[i],' ');

2)Имеется целочисленный массив n*m элементов.

Код
 
For i:=n do 
    Begin
       For j:=1 to m do
          Begin
             A[I,j]:=10*i+j;
             Write(a[I,j]);
           End;
       Writeln;
    End;
Readln
[FONT='Times New Roman']End.
[/FONT]
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.05.2008, 22:23
Помогаю со студенческими работами здесь

ПОМОГИТЕ СРОЧНО НУЖНО( ПОЖАЛУЙСТА(
&quot;Стверджується, що функція y = f (x) є періодичною з періодом T. Перевірити це чисельно через...

Не работает!!! помогите пожалуйста! очень нужно
Всем доброй ночи ребята, сегодня установил винду 7, всё работает на ок, но есть одно но. Выключаешь...

Уважаемы программисты помогите пожалуйста срочно нужно
Уважаемы программисты я хотел бы у вас попросить помочь мне в решении задачи на С не с++ Задача...

Нужно настроить сеть с нуля! Помогите, пожалуйста!
Всем наидобрейшего времени суток! Друзья, интересует вот такой вопрос: как настроить сеть в малом...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru