Вподмосковном калининграде, на улице садовой, живут десять сотрудников цнии машиностроения: иван митков, мария зверева, леонид соболев, ольга бугрова, василий рябинин, петр моисеев, валентина морозова, илья ковалев, татьяна данилова и николай глебов. они живут в домах за №№ 1, 2, 3, 4, 5, 6, 7, 8, 9 и 10. если поделить номер дома петра моисеева на номер дома валентины морозовой – оба представляющие собой четные числа, - то получится число, обозначающее номер дома татьяны даниловой, живущей на противоположной стороне улицы с нечетными номерами. в доме напротив дома валентины морозовой живет ее подруга ольга бугрова. леонид соболев живет по соседству с домом валентины морозовой. если из номера дома леонида соболева вычесть номер дома ольги бугровой, то получится число, обозначающее номер дома, в котором живет василий рябинин. если умножить номер дома, в котором живет василий рябинин, на номер дома, в котором живет валентина морозова, то получится число, в точности соответствующее номеру дома, в котором живет иван митков. номер дома ильи ковалева нечетный, а его друга николая глебова, живущего напротив него, - четный. указать номер дома, в котором живет каждый из указанных друзей, если известно, что номер дома марии зверевой в три раза больше номера дома василия рябинина.
Ответы
//pascal abc.net 3.2 сборка 1318 var f: text; n: integer; s: string; procedure voteraz(f: text; n: integer; s: string); begin writeln('было: '); assign(f,'input.txt'); reset(f); while not(eof(f)) do begin read(f,n); write(n,' '); if n> 7 then n: =n*(n div 7); s: =s+inttostr(n)+' '; end; delete(s,length(s),1); close(f); assign(f,'input.txt'); rewrite(f); write(f,s); close(f); writeln; writeln('стало: '); write(s); writeln; end; function votedva(f: text; n: integer; s: string): integer; begin writeln('было: '); assign(f,'input.txt'); reset(f); while not(eof(f)) do begin read(f,n); write(n,' '); if n> 7 then n: =n*(n div 7); s: =s+inttostr(n)+' '; end; delete(s,length(s),1); close(f); assign(f,'input.txt'); rewrite(f); write(f,s); close(f); writeln; writeln('стало: '); write(s); writeln; votedva: =0; end; begin voteraz(f,n,s); votedva(f,n,s); end. начальное содержимое input.txt: 81 5 6 пример работы программы: было: 81 5 6 стало: 891 5 6 было: 891 5 6 стало: 113157 5 6
#include < iostream> int main(){ const int kol_tov = 20; int sbol = 0; int sbol_index = 0; int smal = 0; int smal_index = 0; int massiv[kol_tov] = { 12, 150, 1230, 332, 531, 1321, 32313, 123123, 123434, 4844, 84847, 48816, 181684, 181, 78616, 81141, 1894, 18974, 91234, 21239 }; smal = massiv[1]; for (int i = 0; i < kol_tov; i++) { if (massiv[i] > sbol) { sbol = massiv[i]; sbol_index = i + 1; } if (massiv[i] < smal) { smal = massiv[i]; smal_index = i + 1; } } std: : cout < < "samoe dorogoe: " < < sbol < < std: : endl < < "samoe deshevoe: " < < smal < < std: : endl < < "index dorogogo: " < < sbol_index < < std: : endl < < "index deshevogo: " < < smal_index < < std: : endl; system("pause"); }
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
с информатикой! Не понимаю ка это делать:((( нужно
Автор: sohrokova809
9) Запис діапазону комірок в Excel наступнийа. А1-А2b A3/B3.с. Al:A13.
Автор: olga-bardeeva
Ввосьмеричной системе счисления есть 8 цифр 0 1 2 3 4 5 6 7 а что идет после них какие буквы . 30
Автор: veronikagrabovskaya
Значки каких объектов могут располагаться на рабочем столе?
Автор: Екатерина1979
поставьте в соответствие название блока и его изображение
Автор: isinyakin