Старик хоттабыч взялся своим друзьям сдать экзамены. для того, чтобы наколдовать правильный ответ на один вопрос по , он должен вырвать из своей бороды 6 волосков, чтобы наколдовать правильный ответ на один вопрос по – 10 волосков, правильный ответ на один вопрос по языку – 8 волосков. вольке-ибн-алеше досталось: на экзамене по – з вопроса, на экзамене по – 5 вопросов, на экзамене по языку – 2 вопроса. женьке досталось: на экзамене по – 4 вопроса, на экзамене по – з вопроса, на экзамене по языку – 4 вопроса. гоге-пилюле досталось: на экзамене по – 2 вопроса, на экзамене по – 4 вопроса, на экзамене по языку – 5 вопросов. и, наконец, самому хоттабычу: на экзамене по – 5 вопросов, на экзамене по – 2 вопроса, на экзамене по языку – з вопроса. сколько волосков пришлось вырвать хоттабьтчу из своей бороды для того, чтобы каждому из своих друзей (и себе самому тоже); сколько волосков пошло на сдачу экзаменов по каждому из предметов?
Ответы
84 120 рус 112 всего 316
Uses crt; var n,i,j,l,sum,min: integer; a: array[1..20,1..20]of integer; begin clrscr; write('n='); readln(n); randomize; writeln('ishodnaja matrica: '); for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(10); write(a[i,j]: 3); end; writeln; end; for l: =1 to 2*n-1 do begin sum: =0; if l< =n then begin for i: =1 to l do for j: =1 to l do if j=l-i+1 then sum: =sum+a[i,j]; if sum< min then min: =sum; end else if l> n then begin for i: =l-n+1 to n do for j: =l-n+1 to n do if j=l-i+1 then sum: =sum+a[i,j]; if sum< min then min: =sum; end; writeln('summa diagonali ',l,' = ',sum); end; writeln; readln end .
1) var a,q: integer; begin a: =1; while a< > 0 do begin read(a); if a< 0 then inc(q); end; writeln('количество отрицательный чисел: ',q); end. 2) var d,m,g,h,min: integer; begin d: =random(31)+1; m: =random(12)+1; g: =random(11)+2000; h: =random(24); min: =random(60); writeln( d,'/',m,'/',g,' ',h,': ',min); end.3)var a: array[1..10] of integer; n,i: integer; beginfor i: =1 to 10 doa[i]: =random(6)+2; read(n); for i: =1 to 10 do writeln(a[i]); for i: =9 downto n doa[i+1]: =a[i]; a[n]: =0; for i: =1 to 10 dowriteln(a[i]); end;
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Линейный алгоритм и блок схема
Автор: Ulianev77
Составить таблицу истинности.
Автор: marinarodina90
Кластер әдісімен экономиканың мақсаты мен міндеттерін тұжырымдап жазындар
Автор: airlineskozlova69
Построить таблицы истинности для следующих выражений
Автор: Delyaginmikhail