Умные мысли:

 

Каждый, у кого нет машины, мечтает её купить; и каждый, у кого есть машина, мечтает её продать. И не делает этого только потому, что, продав, останешься без машины. Человек как никто из живых существ любит создавать себе дополнительные трудности. Именно этим объясняется желание иметь собственный автомобиль.

(к/ф «Берегись автомобиля»)

 

Если мужчина открывает дверь машины жене, значит это или новая машина, или... новая жена

 

Если из отечественной машины перестало капать масло... значит, оно закончилось! )

 

Автомобиль - не роскошь, роскошь - запчасти к нему (Иван Иванюк)

 

Если Вы ехали в машине и вас очень сильно тряхнуло - то это к денежным хлопотам. Чтобы определить точнее, выйдите из машины и посмотрите на бамперы: если погнулся передний - к потере денег, если же погнулся задний - к прибыли!

 

VosAuto © 2008
Privacy Policy | Terms Of Use
Звоните: 8-926-045-00-05

 

Книга 'Города подмосковья':

Долбоящер в полной уверенности, что: "Чингис Хан". Юлия Савченко в полной уверенности, что: "Чингиз Хан". Kracotka в полной уверенности, что: "Путин в старости!". El Kon в полной уверенности, что: "Возможно, Тамерлан?". Везуха поясняет: "А возможно Александр Невский?". Laguna задает вопрос: "Кто из какого города?". "Напишите свой город...". Zoja Larionova уверяет: "Мой городок - Ширвинтос- недалеко от столицы Литвы - Вильнюса. Приезжайте, у нас очень красиво , уютно, лебеди живут на нашей реке". Кирилл уверяет: "Минск-город герой!". Windstorm уверяет: "Одесса тоже герой". Екатерина Степанова уверяет: "Нижний Новгород!". Volume уверяет: "Я из Крымска!!!". "Напишите свой город...".

Анечка Нечаева отмечает: "Коломна городок - Москвы уголок!". Незнакомец отмечает: "Moscow siti!!!!". Liss отмечает: "Озерск-край озер". Daniyar !!! любопытствует: "PASCAL !!!". "Задан массив записей о членах группы (5 человек) следующей структуры : фамилия, пол, возраст, город, !!Пол указывается буквами M или G. Описать :процедуру для печати фамилия женщин в возрасте, которых не более 25 лет !!!P.S. Задача на записи !!!". Gennady поясняет: "Доброго времени суток. Возможное решение задачи может быть таким.program RecBase;uses Crt;type TPersоn = record {объявляется запись о человеке} FIO : String; Gender : Char; Age : Byte; Town : String; end;const NumPersоn = 5; {размер базы данных} {объявление массива с одновременной инициализацией полей} Persons : array[1..NumPerson] of TPersоn = ( (FIO:'Иванова'; Gender:'G';Age:24;Town:'Коломна'), (FIO:'Иванов'; Gender:'M';Age:28;Town:'Иваново'), (FIO:'Петрова'; Gender:'G';Age:34;Town:'Москва'), (FIO:'Сидорова';Gender:'G';Age:23;Town:'Орел'), (FIO:'Петров'; Gender:'M';Age:24;Town:'Курск') );{процедура поиска в массиве записей, удовлетворяющих условию}procedure FindData(Gender: Char; Age: Byte; Count: Integer);var j, n : Integer;begin n := 0; {вдруг не найдем} for j:=1 to Count do if (Persons[j].Age <= Age) and {возраст не больше заданного} (Persons[j].Gender = Gender) then begin {и совпадает пол} WriteLn(n+1,'. ',Persons[j].FIO); {выводим на печать} Inc(n); {увеличим счетчик} end; if n = 0 then WriteLn('Не найдено подходящих записей.');end;var A : Byte; G : Char;begin ClrScr; Write('Введите возраст: '); {Вывд подсказки} ReadLn(A); Write('Введите пол (M/G): '); ReadLn(G); FindData(G, A, NumPerson); {обращение к процедуре поиска записей} ReadLn; {задержка}end.Удачи!".

Кисточка интересуется: "Ваше мнение!наша армия-отстой?вопрос к мамам и отцам сыновей!".

< Предыдущая страница Вернуться на главную Следующая страница >