В классе 30 учеников. Все они являются читателями школьной и районной библиотек. Из них 20 ребят берут книги в школьной библиотеке, 15 — в районной. Сколько учеников не являются читателями школьной библиотеки? Решение. Пусть круг Ш изображает читателей только школьной библиотеки, круг Р — только районной. Тогда ШР — изображение читателей и районной, и школьной библиотек одновременно.Из рисунка следует, что число учеников, не являющихся читателями школьной библиотеки, равно:(не Ш) = Р - ШР.Всего 30 учеников, Ш = 20 человек, Р = 15 человек. Тогда значение ШР может быть найдено так (см. рисунок): ШР = (Ш + Р) - 30 = (20 + 15) - 30 = = 5, т.е. 5 учеников являются читателями школьной и районной библиотек одновременно. Тогда (не Ш) = = Р- ШР= 15- 5= 10.ответ: 10 учеников не являются читателями школьной библиотеки.
1) var i, j: integer; ar: array[1..6, 1..6]of integer; begin for i := 1 to 6 do for j := 1 to 6 do read(ar[i, j]); writeln; for i := 1 to 6 do swap(ar[i, 1], ar[i, 6]); for i := 1 to 6 do swap(ar[i, 2], ar[i, 5]); for i := 1 to 6 do swap(ar[i, 3], ar[i, 4]); for i := 1 to 6 do begin for j := 1 to 6 do write(ar[i, j], ' '); writeln; end; end. 2) var mr, rm: array [1..6, 1..6] of integer; i, j: integer; begin for i := 1 to 6 do for j := 1 to 6 do read(mr[i, j] ); for i := 1 To 6 do for j := 1 To 6 do rm[i, j] := mr[j, i]; writeLn; for i := 1 to 6 do begin for j := 1 to 6 do write(rm[i, j],' '); writeln; end; readln; end.
program test;
var a,b,c: integer
begin
read(a,b,c);
writeln;
if (a>b) and (b>c) then write (a);
if (b>a) and (b>c) then write (b) else
write(c);
end.