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

[marina1602]

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

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


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


Условные операторы:
1)Даны два числа. Найти меньшее из них.



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


Операторы цикла:

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


Массивы:

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

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

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





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

 

[AlexZir]

2)Дано действительное число a. Не пользуясь никакими другими операциями кроме умножения, получить a21 за шесть операций; ("21"-в степени)

Вы точно уверены в правильности задания? Вообще-то при умножении показатели степеней складываются, если конечно речь не идет о битовых операциях

 

[marina1602]

Нам дали вот такую формулировку задания,это точно..Сори я не знаю,что такое Битовые операции

 

[AlexZir]

Условные операторы:
1)Даны два числа. Найти меньшее из них.

program mid;
var a,b: real;
begin
readln(a,b);
if a<b then writeln('Меньшее число =', a) else writeln('Меньшее число =', b);
end.

 

[AlexZir]

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

program ball;
label vvv;
var i: integer;
begin
vvv: readln(i);
if (i<1) or (i>5) then goto vvv;
case i of
1: writeln('плохо');
2: writeln('неудовлетворительно');
3: writeln('удовлетворительно');
4: writeln('хорошо');
5: writeln('отлично');
end;
end.

 

[AlexZir]

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

Допустим что N - целое число, в противном случае нужно просто изменить тип переменной.

program spisok;
var N,i: integer;
begin
readln(N);
for i:=10 to 99 do
if i/N=trunc(i/N) then writeln(i);
end.

Результатом выполнения программы будет столбик двузначных чисел, которые делятся на N без остатка.

 

[AlexZir]

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

program analiz;
var i,a,b,s: integer;
begin
readln(a,b);
s:=0;
for i:=b-1 to a+1 downto 
begin
writeln(i);
s:=s+1;
end;
writeln('сумма чисел равна ',s);
end.

 

[marina1602]

Имеется целочисленный массив n*m элементов.
Каких элементов в массиве больше отрицательных или положительных?

 

[AlexZir]

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

program massiv;
var i, N: integer;
     a: array [1..1000] of integer;
begin
randomize;
readln(N);
for i:=1 to N do a[i]:=random*30+1;
i:=2;
while i<=N do
begin writeln(a[i]); i:=i+2; end;
i:=1;
while i<=N do
begin writeln(a[i]); i:=i+2; end;
end.

 

[AlexZir]

Массивы:
Имеется целочисленный массив n*m элементов.
Каких элементов в массиве больше отрицательных или положительных?

Условимся считать 0 - положительным числом, тогда решение будет таким:

program summ;
var i,j,n,m: integer;
     a: array [1..1000, 1..1000] of integer;
    pol, otr: integer;
begin
randomize;
readln(n,m);
for i:=1 to n do for j:=1 to m do readln(a[i,j]);
pol:=0;
otr:=0;
for i:=1 to n do 
for j:=1 to m do 
if a[i,j]>=0 then pol:=pol+1 else otr:=otr+1;
if pol>otr then writeln('положительных чисел больше') else if pol<otr then writeln('отрицательных чисел больше') else writeln('положительных и отрицательных чисел поровну');
end.

 

[marina1602]

И воть ещё 2 задачки..если не сложно будет..

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

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

 

[AlexZir]

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

Условимся, что текст представляет собой строку длиной не более 255 символов.

program povtor;
var st: string;
      sum, i: integer;
begin
readln(st);
sum:=0;
for i:=1 to length(st) do
if copy(st,i,1)='?' then sum:=sum+1;
writeln('Символ ? в тексте встречается ',sum,' раз.');
end.

 

[AlexZir]

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

program analiz;
var a,b: real;
begin
readln(a,b);
if (a>20) and (b>20) then writeln('Оба числа больше 20') else writeln('По крайней мере одно число не больше 20');
end.

 

[AlexZir]

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

program search;
var i, d, e, s: integer;
begin
for i:=10 to 99 do begin
d:=trunc(i/10);
e:=i-d*10;
s:=d+e;
if s+sqr(s)=i then writeln(i); end;
end.

 

[AlexZir]

Линейные алгоритмы:
1)Заданы два целых числа k и d. Используя только арифметические операции, найдите целую и дробную части от деления k на d.

Что имеете в виду под арифметическими операциями? Какие именно?

 

[marina1602]

Эмммм....я точно не знаю...а их много? Может можно с помощью всех?

 

[AlexZir]

Линейные алгоритмы:
1)Заданы два целых числа k и d. Используя только арифметические операции, найдите целую и дробную части от деления k на d.

program calc;
var k, d, c: integer;
      s: real;
begin
readln(k,d);
c:=trunc(k/d);
s:=k/d-c;
writeln('Целая часть от деления =',c,'; дробная часть от деления =',s);
end.

 

[AlexZir]

2)Дано действительное число a. Не пользуясь никакими другими операциями кроме умножения, получить a21 за шесть операций; ("21"-в степени)

Мое imho с точки зрения математика - такое не реально сделать, если решите - обязательно способ решения сюда запостите.

Засим откланяюсь.

 

[marina1602]

Хорошо! Спасибо вам огромненькое вы меня очень сильно выручили!!! Ещё раз спасибо!

 

[bubuka]

нам надо это
брать в пивном эквиваленте
простая задача- перевод на вебмани 30рублей за бутылку пива
соожная задача - перевод 100рублей на 3 бутылки пива
и большая работа - 700рублей на ящик пива

возможно не деньгами а курьерской доставкой )))