CENTR | Slim Птаха - Тема обо всем на свете. (В общем оффтопим друг с другом!)

Вообщем
1 задание: написать программу, которая после введенного с клавиатуры числа ( в диапазоне от 1 до 99), обозначающего денежную единицу, дописывает слово "Копейка" в правильной форме. Например 5 копеек, 41 копейка.

2 задание: Составить программу, которая по номеру месяца, введенного с клавиатуры, выводит количество дней в нем. В программе учесть количество дней в феврале для високосного и не високосного годов.

.final

19.10.2011 16:49

Цитата:

Составить программу, которая по номеру месяца, введенного с клавиатуры, выводит количество дней в нем. В программе учесть количество дней в феврале для високосного и не високосного годов.

пиздец) кто условие задач пишет?)

копейки:

Цитата:

in>>n;
out<<n<<" копе";
if(n%10==1)out<<"йка";
else if(n%10>1 && n%10<5)out<<"йки";
else out<<"ек";

ZhenkaZ

19.10.2011 19:01

cRh!, а у друга нет интернета что ли?все же в сети есть

Lilo	19.10.2011 20:28

cRh!, Я так и тетрадь с Паскалем не нашел. там была эта задача, с копейками.
Оффтоп

Про месяца не помню, щас если тетрадь найду перепишу исходники сюды.

.final

19.10.2011 20:32

хереней не страдайте. перепишете выше код под паскаль. та же хуйня абсолютно

Добавлено через 52 секунды
про месяца также решается тупо условиями, но условие неправильное, так как зная только номер месяца нельзя сказать високосный ли год.

Lilo	19.10.2011 20:43

.final, когда у меня были эти задачки, была цель решать именно тем способом к которому они принадлежат. Хз как cRh!'y.

of`no`sense

19.10.2011 20:50

Цитата:

В одномерном массиве В,что состоит и N целых элементов,вычеслить:
а) кол-во элементов,равных по значению первому элементу
б) произведение элементов в промежутке [-8;3]

Добавлено через 8 минут

Цитата:

Дана прямоугольная матрица размером N*M.Составить программу,
которая преобразует матрицу так:поэлементно отнимает первый последний ряд во всех рядах,кроме последнего.

ZhenkaZ

19.10.2011 21:01

описофщит

Цитата:

var n, k : byte;
BEGIN
write('Введите количество коппеек(от 0 до 99) : '); ReadLn(n);

k := n;
if n > 0 then k := n mod 10;
case k of
1: Writeln( n,' копейка');
2..4:WriteLn( n, ' копейки');
5..9, 0 : WriteLn( n, ' копеек');
end;
END.

месяца

.final

19.10.2011 21:11

Lilo, не понял.

походу вы все в девятом и у вас проблема чисто с написанием. я думал с алгоритмами

of`no`sense

19.10.2011 21:14

Цитата:

Сообщение от .final (Сообщение 231364)

Lilo, не понял.

походу вы все в девятом и у вас проблема чисто с написанием. я думал с алгоритмами

я на третем)

.final

19.10.2011 21:20

of`no`sense, ну вот извини, но схуяли у вас ЭТО на третьем курсе?)
мне казалось это школьная программа и как общеобразовательное заканчивается приступаете к более сложной хуйне
не так уже что ли?

Hasol

19.10.2011 21:24

у меня паскаль на первом был. хуета редкостная.

Make	19.10.2011 21:26

у нас бля в колледже по информатике ваще нихуя не было)) тупо в инете сидели и всё))

of`no`sense

19.10.2011 21:27

.final, не знаю.программу не я составляю.на первом курсе была информатика,там не много давали паскаля.
сейчас началось программирование,и вот дают паскаль с начала.