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)Подсчитать, сколько раз в предложенном тексте встречается символ «?». Воть! Спасибки заранее! Оч прошу...оч оч нужно! Активен |
|
19.05.2008, 19:01 | |
Ответы с готовыми решениями:
2
Помогите решить задачки пожалуйста! Помогите,пожалуйста,решить задачки Помогите пожалуйста решить 2 задачки, очень нодо! НАРОД!!! Помогите решить две задачки ПОЖАЛУЙСТА!!!! |
13207 / 6595 / 1041
Регистрация: 10.01.2008
Сообщений: 15,069
|
|
19.05.2008, 20:48 | 2 |
Код
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. {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) Код
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 |
Код
if (a>20) and (b>20) then writeln('Yes!') else writeln('No!'); Код
for i:=10 to 99 do if I mod N = 0 then writeln(i); Код
For i:=B-1 downto A+1 do Writeln(i); Код
For i:=10 to 99 do If I div 10+I mod 10+sqr( I div 10+I mod 10 )=I then Writeln(i); Код
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],' '); Код
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
|
19.05.2008, 22:23 | |
Помогаю со студенческими работами здесь
3
ПОМОГИТЕ СРОЧНО НУЖНО( ПОЖАЛУЙСТА( Не работает!!! помогите пожалуйста! очень нужно Уважаемы программисты помогите пожалуйста срочно нужно Нужно настроить сеть с нуля! Помогите, пожалуйста! Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |