помагите решить 4 задачи в paskale! Пожалуйста оч надо!!! - Форум
Воскресенье, 04.12.2016, 17:12
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » помагите решить 4 задачи в paskale! Пожалуйста оч надо!!!
помагите решить 4 задачи в paskale! Пожалуйста оч надо!!!
zhekaДата: Суббота, 25.09.2010, 10:12 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
ХОТЯ БЫ ОДНУ В ТЕЧЕНИИ 3-х ЧАСОВ!!!!!!!!!!!!!!!!
1)Напишите программу находящую цифру, на которую оканчивается число ab.

Формат входных данных

В первой строке входного файла записаны два натуральных числа a и b, разделённые пробелом, где 1<= a, b<=10 000.

Формат выходных данных

Выходной файл содержит одну цифру – ту, на которую оканчивается число ab.
2)В рождественский вечер на окошке стояло три цветочка, слева на право: герань, крокус и фиалка. Каждое утро Маша вытирала окошко и меняла местами стоящий справа цветок с центральным цветком. А Таня каждый вечер поливала цветочки и меняла местами левый и центральный цветок. Требуется определить порядок цветов ночью по прошествии k дней.

Формат входных данных

Во входном файле содержится единственное натуральное число k – число дней (k<= 1 000).

Формат выходных данных

Выходной файл содержит три латинские буквы: «G», «С» и «V» (заглавные без пробелов), описывающие порядок цветов на окошке по истечении k дней (слева направо). Обозначения: «G» герань, «С» крокус, «V» фиалка.
3)Задана последовательность, содержащая n целых чисел. Необходимо найти число, которое встречается в этой последовательности наибольшее количество раз, а если таких чисел несколько, то найти минимальное из них, и после этого переместить все такие числа в конец заданной последовательности. Порядок расположения остальных чисел должен остаться без изменения.
Например, последовательность 1,2,3,2,3,1,2 после преобразования должна превратиться в последовательность 1,3,3,1,2,2,2.
Формат входных данных
Первая строка входного файла содержит число n – количество чисел последовательности (3<= n<=200 000). Следующая строка содержит саму последовательность, состоящую из n целых чисел, не превышающих по модулю 109. Все числа в строке разделены пробелом.
Формат выходных данных
Выходной файл содержит преобразованную последовательность, все числа которой отделены друг от друга одним пробелом.
4)Даны три числа: A,B,C. Можно ли переставить цифры в числах A и B так, чтобы в сумме получилось число C.
Формат входных данных
Во входном файле содержится три числа – A,B,C (0<109). Числа разделены пробелом.
Формат выходных данных
В выходной файл следует вывести YES, если искомая перестановка цифр возможна, в противном случае необходимо вывести NO. При положительном ответе во второй строке следует вывести число X, получаемое перестановкой цифр числа А, и число Y, получаемое перестановкой цифр числа B, сумма которых равна C. Числа X и Y не должны начинаться с нулей. Числа в строке разделены пробелом. Если решений несколько, то следует вывести ту пару, в которой число X минимально.

Сообщение отредактировал zheka - Суббота, 25.09.2010, 11:46
 
flash1989Дата: Суббота, 25.09.2010, 12:58 | Сообщение # 2
Генералиссимус
Группа: Заблокированные
Сообщений: 177
[ 3 ]
Статус: Offline
Пиши, обсудим
icq: 588002847
email: flash_1989@ukr.net
 
ВахаДата: Суббота, 25.09.2010, 17:16 | Сообщение # 3
Подполковник
Группа: Новичок
Сообщений: 28
[ 6 ]
Статус: Offline
Вторая задача:

uses CRT;
var
buf, lef, mid, rig, Nlef, Nmid, Nrig: char;
k, i: integer;
procedure Utro (a, b, c: char; var NA, NB, NC: char);
begin
NA:=a;
NB:=c;
NC:=b;
end;
procedure Ve4er (a, b, c: char; var NA, NB, NC: char);
begin
NA:=b;
NB:=a;
NC:=c;
end;
BEGIN
ClrScr;
WriteLn ('Введите количество дней:');
ReadLn (k);
lef:='G';
Mid:='C';
Rig:='V';
for i:=1 to k do
begin
Utro (lef, mid, rig, Nlef, Nmid, Nrig);
Ve4er (Nlef, Nmid, Nrig, lef, mid, rig);
end;
WriteLn (lef, ' ', mid, ' ', rig);
ReadKey;
END.


Гвардия умирает но не сдается
 
zhekaДата: Воскресенье, 26.09.2010, 15:15 | Сообщение # 4
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
Ваха, сэнк!!!
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » помагите решить 4 задачи в paskale! Пожалуйста оч надо!!!
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016