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

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)Подсчитать, сколько раз в предложенном тексте встречается символ «?».

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

Активен

Vovan-VE · 19.05.2008, 20:48

Заданы два целых числа 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.

@Puporev · 19.05.2008, 22:23

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]

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)Имеется целочисленный массив nm элементов. Символы и строки: 1)Подсчитать, сколько раз в предложенном тексте встречается символ «?». Воть! Спасибки заранее! Оч прошу...оч оч нужно! Активен*

Vovan-VE 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 := aa; {2} a4 := a2a2; {3} a5 := a4a; {4} a10 := a5a5; {5} a20 := a10a10; {6} a21 := a20a; Даны два числа. Найти меньшее из них. Код 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

@Puporev Почетный модератор 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)Имеется целочисленный массив nm элементов. Код For i:=n do Begin For j:=1 to m do Begin A[I,j]:=10i+j; Write(a[I,j]); End; Writeln; End; Readln [FONT='Times New Roman']End. [/FONT] 0

Опции темы