const flats_per_floor = 3; var n, flat, floor: integer; begin write('n = '); readln(n); writeln('какой номер квартиры нужен человеку? '); readln(flat); floor : = (flat - 1) div flats_per_floor + 1; if (floor > n) or (flat < = 0) then begin writeln('неверный номер квартиры'); exit; end; if (floor mod 2 = 1) then writeln('едем на ', floor, ' этаж') else writeln('едем на ', floor - 1, ' этаж'); end.
1. известно, что компания microsoft изначально включила эти игры в свою систему не только ради развлечений. эти игры появились в “винде” тогда, когда впервые появилась компьютерная мышь.по замыслу разработчиков эти игры должны были людям научиться правильно двигать курсором, а также использовать обе кнопки мыши, так как до это пользователи компьютеров использовали для ими только клавиатуру и мышка была для всех чем-то необычным.
2. символ @ (эт) называют “собакой” только в странах бывшего советского союза, в большинстве других языков этот символ называют “улиткой” или “обезьянкой”.кстати, этому символу уже более 500 лет. в старину он использовался в основном для обозначения мер веса. затем его стали использовать в банках для выписывания чеков и счетов, а оттуда он попал в мир компьютеров и программирования, где сейчас имеет множество функций
3. большинство людей сейчас пользуются смайликами, когда что-то кому-то пишут. также известно, что первым человеком, который догадался использовать скобку “)”в качестве улыбки, был писатель владимир набоков. это случилось в 1969 году.
4. слово компьютер появилось еще до изобретения электронно-вычислительных машин. вначале 20 века в сша компьютерами называли работников, которые занимались расчетами, используя для этого арифмометры, которые представляли собой большие механические калькуляторы.
5. существует такая организация, которая называется миссионерская церковь копизма. эта организация появилась в швеции в 2010 году и официально признана там религией. члены этой церкви считают, что копирование информации это священный акт, который ни в коем случае нельзя ограничивать какими-то ни было авторскими правами.они выступают за свободное распространение информации через всемирную паутину, которую они, кстати, тоже считают священной. а самыми главными сакральными символами члены секты считают комбинации клавиш ctrl—c и ctrl—v.
Поделитесь своими знаниями, ответьте на вопрос:
Алгоритм (блок-схема, программа на языке pascal) для нахождения максимального элемента в массиве из 10 случайных элементов
uses GraphABC;
var m: integer; arr: array [1..10] of integer;
begin
for var i := 1 to 10 do
begin
arr[i] := Random(120,200);
end;
m := Max(arr[1], Max(arr[2], Max(arr[3], Max(arr[4], Max(arr[5], Max(arr[6], Max(arr[7], Max(arr[8], Max(arr[9], arr[10];
println(m);
end.