|
Решение задач в Паскале
|
|
|
Ну, что же вы мне остальные не присылаете...
|
|
|
|
Много дел
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
помоги пожалуйста с задачами)
1закодировать и декодировать заданную строку по ключевому слову.
2заданную строку вывести на экран в виде бесконечной бегущей справа-налево строки до нажатия клавиши Esc ,с возможностью оперативного изменения: 1скорости строки 2 цвета символов строки 3 цвета фона строки положения на экране по вертикале.
Очень нужна помощь ,заранее спасибо)
|
|
|
|
|
Помогите пожалуйста решить-Написать программу на языке Паскаль.Даны два целых положительных числа N и M.Заменить большее из них суммой этих двух чисел,а меньшее возвести в квадрат.
|
|
|
|
Quote (irina404) 1закодировать и декодировать заданную строку по ключевому слову.
Какое слово является ключевым?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (irina404) 2заданную строку вывести на экран в виде бесконечной бегущей справа-налево строки до нажатия клавиши Esc ,с возможностью оперативного изменения: 1скорости строки 2 цвета символов строки 3 цвета фона строки положения на экране по вертикале.
Очень нужна помощь ,заранее спасибо)
Бесконечная строка вот тебе:
var
a:integer;
l:boolean;
begin
l:=false;
repeat begin
write(a,' ');
a:=a+1;
end;
until l=true;
end.
Цвет текста и фона - в гугл, не помню просто как записывается..
Скорость сроки - Пробел по умолчанию))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (sergey313) Помогите пожалуйста решить-Написать программу на языке Паскаль.Даны два целых положительных числа N и M.Заменить большее из них суммой этих двух чисел,а меньшее возвести в квадрат.
var
n,m:integer;
begin
read(n,m);
if n>m then begin n:=n+m;m:=m*m;end else begin
m:=n+m;n:=n*n;end;
writeln(n,' ',m);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
1) Дано натуральное число. Выведите его последнюю цифру.
Пример
Ввод Вывод
179
9
2)Дано двузначное число. Найдите число десятков в нем.
Пример
Ввод Вывод
42
4
|
|
|
|
Контестер?)
1.
Код var
a:integer;
begin
read(a);
writeln(a mod 10);
end.
2.
Код var
a:integer;
begin
read(a);
writeln(a div 10);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Помогите плиз, заранее спасибо.
Дана матрица A из целых чисел размером MxN.
Переставить строки матрицы так, чтобы строки стали расположены
по убыванию в лексикографическом порядке.
|
|
|
|
как сделать задачу x=5(a+b+c и дзеленная на aквадрат?)
кпк
|
|
|
|
Quote (rewoljer) как сделать задачу x=5(a+b+c и дзеленная на aквадрат?)
Пример ввода-вывода, условие не понял.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
помогите плиз...нужно составить прогу
Даны 3 множества x1,x2,x3 содержащие целые числа из диапазона 100..200. известно что мощность каждого из этих множеств равно 10. Сформируйте новое множество Y=(X1ÇX2)U(X1UX3). на печать вывести множества x1,x2,x3 и Y. Проверить выполнение условия x1 <=(меньше либо равно) Y, 150 принадлежит Y.
заранее огромное огромное спасибище!!!
|
|
|
|
Не понял условия..
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Дайте пожалуйста решение!!! Очень Срочно
3. По данному числу N распечатайте все целые степени двойки, не превосходящие N, в порядке возрастания. Операцией возведения в степень пользоваться нельзя! Напрмер: Ввод: 50. Вывод:1 2 4 8 16 32.
4. Дано натуральное число N. Выведите слово YES, если число N является точной степенью двойки, или слово NO в противном случае. Операцией возведения в степень пользоваться нельзя! Например: Ввод: 8. Вывод: YES. Ввод: 3. Вывод: No.
5. По данному натуральному числу N выведите такое наименьшее целое число k, что 2k≥N. Операцией возведения в степень пользоваться нельзя! Например: Ввод: 7. Вывод: 3.
|
|
|
|
Цитата den26 3. По данному числу N распечатайте все целые степени двойки, не превосходящие N, в порядке возрастания. Операцией возведения в степень пользоваться нельзя! Напрмер: Ввод: 50. Вывод:1 2 4 8 16 32.
Код var
i,n:integer;
begin
read(n);
i:=1;
while(i*i<=n)do begin
write(i*i,' ');
i:=i+1;end;
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
Выдало частичное решение Добавлено (11.11.12, 20:52)
---------------------------------------------
?
|
|
|
|
в смысле?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Я на mccme отправлял
Написал мол Частичное решение
|
|
|
|
Quote (den26) Я на mccme отправлял
это что?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
