Для кабинета информатики нужно 20 компьютеров. Для кабинета начальных классов нужно 30 одноместны(-х, -е) парт(-ы).
Для кабинета математики нужна 1 доска.
Для кабинета биологии нужно 22 стола.
Для кабинета физики нужны 2 доски.
Для кабинета информатики нужно 36 столов.
Для кабинета биологии нужен 1 компьютер.
Для кабинета информатики нужна 1 урна.
Для кабинета начальных классов нужен 1 аквариум.
Для кабинета биологии нужен 1 экран.
Для кабинета физики нужна 1 урна.
Для кабинета математики нужно 20 столов.
Определи, сколько всего единиц оборудования каждого вида должна закупить школа.
type Date = record
day : 1..31;
mounth : 1..12;
year : integer;
end;
Person = record
SurnameName : string;
Birthday : date;
end;
ListOfPeople = array [1..50] of person;
var
People: ListOfPeople;
JoungHuman: Integer;
i, JoungHumanIndex: Byte;
begin
for i:=1 to 50 do
begin
Write('Human '+IntToStr(i)+':')
Write('Input Surname and Name:')
ReadLn(People[i].SurnameName);
Write('Input Birthday date(day, mounth, year):')
Read(People[i].Birthday.day, People[i].Birthday.mounth, People[i].Birthday.year);
end;
//
JoungHumanIndex:=1;
//
JoungHuman:=People[1].Birthday.day + People[1].Birthday.mounth*13 + People[1].Birthday.year * 32 * 13;
for i:=2 to 50 do
if JoungHuman> People[i].Birthday.day + People[i].Birthday.mounth*13 + People[i].Birthday.year * 32 * 13 then
begin
//
JoungHumanIndex:=i;
//
JoungHuman:=People[i].Birthday.day + People[i].Birthday.mounth*13 + People[i].Birthday.year * 32 * 13;
end;
WriteLn('Most joung human: '+People[JoungHumanIndex].SurnameName);
end.
var
i,j,k:integer;
A:array[1..n] of integer;
B,C:array[1..m] of integer;
begin
writeln('Введите элкменты массива');
for i:=1 to n do readln(a[i]);
j:=0; k:=0;
for i:=1 to n do
if i mod 2=1 then begin j:=j+1; B[j]:=A[i] end
else begin k:=k+1; C[k]:=A[i] end;
writeln('Массив А');
for i:=1 to n do write(A[i],' ');
writeln;
writeln('Массив B');
for i:=1 to j do write(B[i],' ');
writeln;
writeln('Массив C');
for i:=1 to k do write(C[i],' ');
writeln
end.